Ajudem-me por favor!!!
Alguém sabe como criar um evento OnClick em um Shape???????????
T+
T+
Celo-faveri
Curtidas 0
Respostas
Carnette
15/11/2003
- Vá na seção ´private´ do form onde vc tem o shape e declare a procedure abaixo:
- Logo após a palavra ´implementation´, escreva a procedure:
- Coloque as instruções abaixo no evento OnCreate do Form:
- E pronto. Execute e teste.
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.
GOSTEI 0