Positionsbestimmung einer Zelle (erledigt)

opfer.der.genauigkeit · Beiträge: 754 Erhaltene Danke: 1

Hallo,

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

_________________
Stellen Sie sich bitte Zirkusmusik vor.

Ex0rzist · Beiträge: 550 Win XP Prof. Mandrake 10.0 D6

Zum Beispiel so:

markieren

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;

_________________
If accidentally read, induce vomitting.

opfer.der.genauigkeit · Beiträge: 754 Erhaltene Danke: 1

Danke für die Hilf.

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

_________________
Stellen Sie sich bitte Zirkusmusik vor.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme