Popupmeü ohne Reaktion

[Hansa]

Hi,

auf einer Form habe ich ein Popupmenu. Im OnClose des Formulares soll das automatisch sichtbar werden, vorher ist es unsichtbar. Da steht nur drin "speichern", "drucken" usw. Soweit funktioniert das auch. Aber klicke ich einen der Einträge des Menüs an, so passiert nichts. Im Moment stet da nur showmessage drin. Nicht mal das wird angezeigt.

[Nalincah]

:wiejetzt:
Du hast ein Popup-Menü das beim schließen einer Form geöffnet wird? Angezeigt wird es?

[sakura]

Nach dem Klicken auf den Eintrag des PopupMenu wird eine Botschaft an das Fenster gesandt. Bevor diese jedoch verarbeitet wird, wird dieses geschlossen :arrow: ergo, die Botschaft kann nicht verarbeitet werden :arrow: ergo, finde eine komplett andere Lösung.

...:cat:...

[Nalincah]

Probiers mal mit OnCloseQuery

[Hansa]

Ich habe jetzt mal alle Eventualitäten ausgeschaltet.
Alles neu: neues Projekt, neue Form usw. Wieso geht der Code nicht :?:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    test11: TMenuItem;
    test21: TMenuItem;
    procedure test11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.test11Click(Sender: TObject);
begin
  showmessage ('111111111');
end;

end.

[Die Muhkuh]

Hast du im OI denn der Form das PopUp-menü zugewiesen?