Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Positionsbestimmung einer Zelle (erledigt)


opfer.der.genauigkeit - So 01.06.03 01:22
Titel: Positionsbestimmung einer Zelle (erledigt)
Hallo,

Vielleicht kann mir ja jemand weiterhelfen.
Ich würde gerne die Postion, einer Zelle in einem Grid, auf dem Bildschirm ermitteln.


Ex0rzist - So 01.06.03 03:23

Zum Beispiel so:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var
 Rechteck: TRect;
begin
 Rechteck := StringGrid1.CellRect(ACol,ARow);
 Showmessage(IntToStr(Form1.Left+StringGrid1.Left+Rechteck.Left)+':'+IntToStr(Form1.Top+StringGrid1.Top+Rechteck.Top));
end;


opfer.der.genauigkeit - Di 03.06.03 10:29

Danke für die Hilf.

Aber Form.Left gibt immer 0.
Hab auch gefunden, was ich gesucht habe.
ClientToScreen und ScreenToClient.