Forum: Programmieren allgemein
by Uwe Raabe,
2. Apr 2020
In dem Fall lässt sich die Position des Forms sogar noch einfacher ermitteln:
var
P: TPoint;
begin
P := Edit1.ClientToScreen(Point(0, Edit1.Height));
StringGrid1Form.Left := P.X;
StringGrid1Form.Top := P.Y;
StringGrid1Form.BringToFront;
end;
Forum: Programmieren allgemein
by Uwe Raabe,
2. Apr 2020
OK, das konnte ich anhand deines Profils nicht ahnen.
Forum: Programmieren allgemein
by Uwe Raabe,
2. Apr 2020
Geht schon einfacher, solange StringGrid1.Parent auch in der ParentListe von Edit1 vorkommt.
var
P: TPoint;
begin
P := Edit1.ClientToParent(TPoint.Create(0, Edit1.Height), StringGrid1.Parent);
StringGrid1.Left := P.X;
StringGrid1.Top := P.Y;
StringGrid1.BringToFront;