OnMouseDown
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
Curtidas 0
Respostas
Data
10/04/2003
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.
GOSTEI 0