TMdiChild: Kontextmenü des Hauptfensters schlägt durch

[Union]

Hallo,

ich habe in meinem Hauptfenster (FormStyle = fsMdiForm) ein TImage als Hintergrundbild. An dieses habe ich ein TPopupMenu als Kontextmenü angehängt, um z.B. das Hintergundbild zu ändern etc. Öffne ich jetzt ein MDI Child (FormStyle = fsMdiChild), dann öffnet sich das Popup auch wenn ich auf der Clientfläche des Child einen Rechtsklick ausführe.

Wie verhindern ?

[Stevie]

Hi Union,

ist ja schon komisch, ein möglicher Workaround wäre:

Delphi-Quellcode:

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  APoint: TPoint;
begin
  if Button = mbRight then
  begin
    APoint := Image1.ClientToScreen(Point(X, Y));
    PopupMenu1.Popup(APoint.X, APoint.Y);
  end;
end;

MfG
Stevie

[semo]

Versuch einfach mal anstatt einem MDI-Fenster(bzw. MDI-Child) ein modales Fenster zu öffnen.