Hallo allerseits,
ich habe folgendes Problem:
Ich habe einen Button, der Beim Click ein Popup-Fenster mit einem Untermenü öffnet. Dieser Button liegt auf einem Panel, was wiederum auf einer GroupBox liegt, welche wiederum auf einem Panel und dieses wiederum auf einem Tabsheet liegt. Im Designmodus
platziere ich den Button (Top = 10, Left = 8, Height = 25). Die Onclick-Methode sieht folgendermaßen aus (Bezeichner sind angepasst):
Delphi-Quellcode:
procedure TMyForm.myButtonClick(Sender: TObject);
var
p: TPoint;
begin
p.X := myButton.Left;
p.Y := myButton.Top + myButton.Height;
p := myButton.ClientToScreen(p);
myPopup.Popup(p.X, p.Y);
end;
Da ich dynamisch noch Panels oberhalb dieses Buttons einschiebe, funktioniert das aber nicht so wirklich, da das Popup immer bei den Koordinaten erscheint, die ich im DesignModus angegeben habe. Hat jemand eine Idee?