Ergebnis der Suchanfrage

• Forum: FreePascal

  AW: Einfach das Popup Menü schließen

   
    by Uwe Raabe, 2. Mai 2013
  Das ist Geschmackssache und in diesem Fall ist sicher beides akzeptabel.
  
  Bei komplexeren Fällen mit einer Vielzahl an Abfragen finde ich meinen Ansatz etwas übersichtlicher und leichter wartbar (z.B. beim Einfügen, Löschen oder Umsortieren einzelner Fälle).
  
  Der IF-EXIT Ansatz hat gegenüber dem IF-ELSE Ansatz allerdings den Vorteil, daß nicht bei jedem IF ein EXIT folgen muss und in dem...
• Forum: FreePascal

  AW: Einfach das Popup Menü schließen

   
    by Uwe Raabe, 28. Apr 2013
  Die Deutsche Übersetzung ist etwas missverständlich. In dem Englischen Original wird das deutlicher:
  
  
  
  Gemeint ist damit, daß die Windows-Messages für das geöffnete Popupmenu zentral von TPopupList bearbeitet werden. Im Fall des Standard-Menüs wird aber das Window-Handle des Controls verwendet, das zum Popup geführt hat. Daher kommen in meiner ersten Antwort alle Messages auch beim TMemo an....
• Forum: FreePascal

  AW: Einfach das Popup Menü schließen

   
    by Uwe Raabe, 28. Apr 2013
  Dann scheint Lazarus noch eine andere Implementation zu haben. Leider kenne ich mich damit überhaupt nicht aus.
• Forum: FreePascal

  AW: Einfach das Popup Menü schließen

   
    by Uwe Raabe, 28. Apr 2013
  Der folgende Code in einer passenden Unit sollte das aber beheben. Das funktioniert dann allerdings mit allen Popupmenüs und man braucht den Event i Memo nicht mehr.
  
  
  type
  TMyPopupList = class(TPopupList)
  protected
  procedure WndProc(var Message: TMessage); override;
  end;
  
  procedure TMyPopupList.WndProc(var Message: TMessage);
• Forum: FreePascal

  AW: Einfach das Popup Menü schließen

   
    by Uwe Raabe, 28. Apr 2013
  Ja, ich hatte das Standardmenü genommen. Mit einem eigenen Popupmenü geht es in Delphi auch nicht. Liegt wohl daran, daß das Standardmenü mit dem Handle des Controls arbeitet, während die VCL-Popupmenüs ein anderes Window-Handle verwenden.
• Forum: FreePascal

  AW: Einfach das Popup Menü schließen

   
    by Uwe Raabe, 27. Apr 2013
  Ich hatte das unter Delphi XE2 und Windows 7 getestet: Neue VCL-Forms-Anwendung, Memo drauf, MouseDown-Event wie gezeigt. Starten, rechte Maustaste auf Memo, Popup-Menü kommt, mittlere Maustaste auf Popupmenü - funktioniert.
• Forum: FreePascal

  AW: Einfach das Popup Menü schließen

   
    by Uwe Raabe, 27. Apr 2013
  Warum so kompliziert?
  
  procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  begin
  if Button = mbMiddle then
  EndMenu;
  end;