Fórum OnMouseDown #153977
10/04/2003
0
Construi um Panel Dinamicamente, mas gostaria de Fazer uma programação no evento OnMouseDown deste Panel, minha duvida é, que parametros eu passo?
Agradeço desde já
Agradeço desde já
Anonymous
Curtir tópico
+ 0
Responder
Posts
12/04/2003
Data
Primeiro você deve criar um procedure como o abaixo. Ele deve estar declarado no teu formulário pai que neste caso é o Form1.
procedure TForm1.PanelMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// faz alguma coisa
end;
Após criar o panel você deve inserir o seguinte código:
Digamos que a variável se chama TeuPanel.
TeuPanel.OnMouseDown := Form1.PanelMouseDown;
pronto, o teu panel começará automaticamente a receber mensagens do mouse.
procedure TForm1.PanelMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// faz alguma coisa
end;
Após criar o panel você deve inserir o seguinte código:
Digamos que a variável se chama TeuPanel.
TeuPanel.OnMouseDown := Form1.PanelMouseDown;
pronto, o teu panel começará automaticamente a receber mensagens do mouse.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)