Ajudem-me por favor!!!

Question

Algu�m sabe como criar um evento OnClick em um Shape???????????T+...

Carnette · Answer

- V� na se��o �private� do form onde vc tem o shape e declare a procedure abaixo:

private procedure ShapeClick(Sender: TObject);

- Logo ap�s a palavra �implementation�, escreva a procedure:

implementation {$R *.dfm} procedure TForm1.ShapeClick(Sender: TObject); begin ShowMessage(�Clicou no Shape.�); end;

- Coloque as instru��es abaixo no evento OnCreate do Form:

procedure TForm1.FormCreate(Sender: TObject); begin Shape1.ControlStyle := Shape1.ControlStyle + [csClickEvents]; TForm(Shape1).OnClick := ShapeClick; end;

- E pronto. Execute e teste.

F�rum Ajudem-me por favor!!! #195204