Jetzt gibt es nur noch ein Problem:
Wie öffnet sich es am Button?
Ich habe mich dem Beispiel aus der Hilfe bedient:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
PopupMenu1.AutoPopup := False;
end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
PopupMenu1.Popup(X, Y);
end;
Allerdings öffnet er es oben, kurz unter der Titelleiste.
Das Formular, auf dem das PopupMenu geöffnet wird ist MDIChild.
Vielen Dank im voraus!
Gruß
1PM