+- Access SQL (https://www.access-sql.com)
+-- Forum: MS SQL SERVER & DİĞER MS OFFICE VE VERİTABANI UYGULAMALARI (https://www.access-sql.com/Forum-MS-SQL-SERVER-DIGER-MS-OFFICE-VE-VERITABANI-UYGULAMALARI)
+--- Forum: DİĞER MS OFFICE VE VERİTABANI UYGULAMALARI (https://www.access-sql.com/Forum-DIGER-MS-OFFICE-VE-VERITABANI-UYGULAMALARI)
+---- Forum: PROGRAMLAMA DİLLERİ (https://www.access-sql.com/Forum-PROGRAMLAMA-DILLERI)
+---- Konu: bir kodun icinde koordinat bulma (/Konu-bir-kodun-icinde-koordinat-bulma)
bir kodun icinde koordinat bulma - kod_adı_pars - 07-03-2011
procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
cx,cy:Integer;
pnt:TPoint;
begin
pnt:=Point(x,y);
pnt:=ScreenToClient(Memo1.ClientToScreen(pnt));
cx:=pnt.x;
cy:=pnt.y;
end;