Fórum Como captar a posição Left no Form do ponteiro do mouse? #324917
06/07/2006
0
Como captar a posição left no form do ponteiro do mouse?
Ex: Tenho um form e um edit, gostaria ao clicar com o mouse no form aparecesse no Edit a posição left do mouse dentro do form, para ser mais abrangente um botão ou edit tem a sua posição left no form, então é essa posição que quero captar mas ao invés da posição left do botão seria a left do mouse.
Desde já agradeço a quem puder me ajudar.
Ex: Tenho um form e um edit, gostaria ao clicar com o mouse no form aparecesse no Edit a posição left do mouse dentro do form, para ser mais abrangente um botão ou edit tem a sua posição left no form, então é essa posição que quero captar mas ao invés da posição left do botão seria a left do mouse.
Desde já agradeço a quem puder me ajudar.
Exvasp
Curtir tópico
+ 0
Responder
Posts
07/07/2006
Imoreira
você pode captar estes dados no evento MouseMove do form, nas variáveis y e x.
Ex.:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
CAPTION:= INTTOSTR(Y)+´ ´+ INTTOSTR(X);
end;
Ex.:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
CAPTION:= INTTOSTR(Y)+´ ´+ INTTOSTR(X);
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)