Ładny brzuch
Czy mozliwe jest odczytanie pozycji kursora w jakims polu edycji (richedit) ale wynik byl w pikselach?
to jest procedurka dla rich edita
procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
Punkt:TPoint
begin
GetCursorPos(Punkt);
label1.Caption:=inttostr(Punkt.X) ;
label2.Caption:=inttostr(Punkt.Y)
end;
Pozdro for all
Wielkie dzieki. Chyba pierwszy raz ktos mi pomogl na tym forum odzyskuje wiare w uzytkownikow dzieki.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
to jest procedurka dla rich edita
procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
Punkt:TPoint
begin
GetCursorPos(Punkt);
label1.Caption:=inttostr(Punkt.X) ;
label2.Caption:=inttostr(Punkt.Y)
end;
Pozdro for all
Wielkie dzieki. Chyba pierwszy raz ktos mi pomogl na tym forum odzyskuje wiare w uzytkownikow dzieki.