Como captar a posição Left no Form do ponteiro do mouse?
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
Curtidas 0
Respostas
Imoreira
06/07/2006
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;
GOSTEI 0