Jedem Menuitem eine zusätzliche aktion zuweisen?

[Cylence]

Hallo,

ich möchte das bei jedem Menuitem einmal onclick zb eine Variable Popupopen auf False gesetzt wird und evtl auch noch andere aktionen durch geführt werden. Bis jetzt hab ich halt bei jedem onclick das was halt da getan werden soll, und einmal eine Prozedur PopupClosed gestartet. Kann ich aber irgendwie global sagen das bei jedem onclick bei menuitems oder evtl sogar noch bei anderen onclicks zb von Buttons oder so, das dort immer die aktion ausgeführt wird, ohne das ich die bei jedem click einzeln einfüge?
Dadurch würde ich unmengen an code sparen...

Ich hoffe jemand versteht was ich meine :-) *g*

schönes Wochenende!!

Gruß

Tom

[hathor]

Zitat:

Zitat von Cylence

Hallo,

ich möchte das bei jedem Menuitem einmal onclick zb eine Variable Popupopen auf False gesetzt wird und evtl auch noch andere aktionen durch geführt werden. Bis jetzt hab ich halt bei jedem onclick das was halt da getan werden soll, und einmal eine Prozedur PopupClosed gestartet. Kann ich aber irgendwie global sagen das bei jedem onclick bei menuitems oder evtl sogar noch bei anderen onclicks zb von Buttons oder so, das dort immer die aktion ausgeführt wird, ohne das ich die bei jedem click einzeln einfüge?
Dadurch würde ich unmengen an code sparen...

Ich hoffe jemand versteht was ich meine :-) *g*

schönes Wochenende!!

Gruß

Tom

.
Nö.

[Cylence]

ok also bisher hab ichs so:

Delphi-Quellcode:

procedure Playclick;
begin
  Popupopen := False;
  Filtergraph.play;
end;

procedure Stopclick;
begin
  Popupopen := False;
  Filtergraph.stop;
end;

//..... usw .... 

procedure onPopupopen;
begin
  Popupopen := True;
end;

so ich hätte jetzt gerne das ständige Popupopen := False;
gerne irgendwie einmal untergebracht
so in der art irgendwie

Delphi-Quellcode:

procedure OnEveryMenuitemCLickADD;
begin
  Popupopen := False;
  inherited;
end;

irgendwie muss das doch möglich sein... jetzt verstanden was ich mein?

[DeddyH]

In einer abgeleiteten Klasse müsste das möglich sein.

[Cylence]

kann man evtl bei PopupMenu.OnChange erkennen ob das Popupmenu jetzt geschlossen wurde oder nur ein anderer Menüpunkt gewählt wurde...?
Das wäre auch noch eine recht schöne möglichkeit, evtl so etwas in der art wie

Delphi-Quellcode:

procedure onPopupmenuchange ...
begin
 if (sender as TPopupmenu).destroyed then Popupopen := False;
end;

aber destroyed gibts nich...nur destroying...könnte das eine möglichkeit sein? aber destroying ist kein Boolean...
eben hab ich noch getestet

if not (Sender as Tpopupmenu).MenuUpdating then

aber das geht auch nicht....

[DeddyH]

Delphi-Quellcode:

type
  TMenuItem = class(Menus.TMenuItem)
  public
    procedure Click;override;
  end;

  TFormBlubb = class(TForm)
    PopupMenu1: TPopupMenu;
    Item1: TMenuItem;
    Item2: TMenuItem;
    Item3: TMenuItem;
    ...
  end;

...

implementation

procedure TMenuItem.Click;
begin
  PopupOpen := false;
  inherited;
end;

...

[Cylence]

Hi,

cool ich Danke Dir! Das sieht gut aus genau sowas hab ich gesucht. Werd ich gleich ausprobieren

Wünsch noch ein schönes Wochenende!!!

[Cylence]

Hi,

also ganz so funktioniert es nicht, leider reagiert das auch wenn man nur im Popupmenü auf die verschiedenen Items geht mit der Maus. Aber nun frag ich einfach dann noch ab ob in dem Moment die Maustaste gedrückt ist und jetzt passts soweit

Danke!!

Gruß

tom

[DeddyH]

Merkwürdig, bei mir nicht. Aber wenn Du Dir behelfen konntest, ist es ja gut.