Moin, Moin.
Ein für mich unerwartetes Verhalten! Seltsam! Den Vorschlag von Klaus kann ich aber nicht so ganz nachvollziehen - er führt bei mir nicht zum Erfolg. Habe mal ein bißchen gebastelt und die Events OnMouseDown() und OnMouseUp() des auf dem Panel placierten Edits so belegt:
Delphi-Quellcode:
procedure TfoTest10.PanelEditMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Panel1.PopupMenu:=nil
end;
procedure TfoTest10.PanelEditMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Panel1.PopupMenu:=PopupMenu1
end;
Damit wird der gewünschte Effekt erzielt.
// edit: Eigentlich doch nicht so unerwartet. Wie im
OI schön zu sehen, gibt es ja eine Reihe von Eigenschaften, die Childs vom Parent übernehmen, wenn nichts anderes angegeben wird. Dumm nur, dass dieses Verhalten für das Popup offenbar nicht zu deaktivieren ist, wie es z.B. für den ParentFont möglich ist.