StringGrid über den Rand z.B. einer GroupBox hinweg anzeigen

[Uwe Raabe]

Geht schon einfacher, solange StringGrid1.Parent auch in der ParentListe von Edit1 vorkommt.

Delphi-Quellcode:

var
  P: TPoint;
begin
  P := Edit1.ClientToParent(TPoint.Create(0, Edit1.Height), StringGrid1.Parent);
  StringGrid1.Left := P.X;
  StringGrid1.Top := P.Y;
  StringGrid1.BringToFront;
end;

[norwegen60]

Wow. Das hört sich doch gut an.

Zitat:

...solange StringGrid1.Parent auch in der ParentListe von Edit1 vorkommt...

Müsste doch immer erfüllt sein wenn Stringrid auf einem der Unter-Parents von Edit liegt, oder?

[norwegen60]

Es scheitert daran, dass er das TPoint.Create nicht erkennt "Unknown identifier"
 P := Edit1.ClientToParent(TPoint.Create(0, Edit1.Height), StringGrid1.Parent) Ich verwende Delphi XE

[norwegen60]

Vielen Dank. So klappt es einwandfrei

[Uwe Raabe]

Zitat von norwegen60:

Ich verwende Delphi XE

OK, das konnte ich anhand deines Profils nicht ahnen.

[HolgerX]

Hmm..

Bedenkt bitte, dass sich das Grid immer nur im Rahmen 'seines' Parent befinden kann.
Wenn somit das Edit oder die Groupbox sehr weit unten auf der Form sind und das Grid auf der selbern Form oder einem anderen Container (wie Panel) liegt, welcher ebenfalls auf der Form liegt, dann dürfte das Grid sehr klein sein

Mit eigener Form kann diese über die Grenze der Form 'hinausgehen' auf dem die Groupbox liegt.
Sprich das gleiche Verhalten, was ein Popup-Menu hat.

[Uwe Raabe]

Zitat von HolgerX:

Mit eigener Form kann diese über die Grenze der Form 'hinausgehen' auf dem die Groupbox liegt.

In dem Fall lässt sich die Position des Forms sogar noch einfacher ermitteln:

Delphi-Quellcode:

var
  P: TPoint;
begin
  P := Edit1.ClientToScreen(Point(0, Edit1.Height));
  StringGrid1Form.Left := P.X;
  StringGrid1Form.Top := P.Y;
  StringGrid1Form.BringToFront;
end;

[HolgerX]

Hmm..

Zitat von Uwe Raabe:

Zitat von HolgerX:

Mit eigener Form kann diese über die Grenze der Form 'hinausgehen' auf dem die Groupbox liegt.

In dem Fall lässt sich die Position des Forms sogar noch einfacher ermitteln:

Delphi-Quellcode:

var
  P: TPoint;
begin
  P := Edit1.ClientToScreen(Point(0, Edit1.Height));
  StringGrid1Form.Left := P.X;
  StringGrid1Form.Top := P.Y;
  StringGrid1Form.BringToFront;
end;

So hatte ich das auch angedacht, nur mit der Erweiterung, dass das Grid nur angezeigt wird, wenn die Maus über dem Edit ist (deshalb MouseHook um das Verlassen des Edits zuverlässig zu erkennen ) ansonsten würde das Grid ja immer auch alle anderen Fenster/Applikationen verdecken, wenn es OnTop ist