Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi TMainMenu aufgeklappt? (https://www.delphipraxis.net/44496-tmainmenu-aufgeklappt.html)

Leominora 20. Apr 2005 06:53


TMainMenu aufgeklappt?
 
Hallo alle miteinander,

hätte da mal ein Anliegen.

Habe ein MDI, das sich aller Sekunden aktualisiert.
Nun ist es ein Wunschgedanke, dass, wenn man im Menü ist,
diese Aktualisierung gestoppt wird.
Timer und alles - kein Problem, nur wie weiß ich, dass das Menü benutzt wird?
Habe noch keine hilfreichen Eigenschaften gefunden.
(zB wäre schön zu wissen, ob das Menü aufgeklappt ist)

Danke schon mal im voraus!

Leo

glkgereon 20. Apr 2005 07:38

Re: TMainMenu aufgeklappt?
 
setz für alle "hauptpunkte" dasselbe OnClick ereignis, wo du eine var auf true setzt, und im onklick aller anderen wieder auf false...


es gibt aber glaub ich auch n ereignis OnPopUp und imh sogar ne eigenschaft die das sagt

weis i net, kann auch dein ich das ein bisserl mit PopUpMenu mixe, aber das erste funzt auf jeden fall...

marabu 20. Apr 2005 07:55

Re: TMainMenu aufgeklappt?
 
Wenn die Aktualisierung der Fensterinhalte in der OnIdle Routine der Application durchgeführt wird, dann wird sie automatisch angehalten, sobald ein Menü benutzt wird.

Jens Schumann 20. Apr 2005 08:21

Re: TMainMenu aufgeklappt?
 
Hallo,
wie wäre es denn mit WM_ENTERMENULOOP

toms 20. Apr 2005 08:29

Re: TMainMenu aufgeklappt?
 
Delphi-Quellcode:
type
  TForm1 = class(TForm)
    // ...
  private
    IsMenuOpen: Boolean;
    procedure WMMENUSELECT(var message: TWMMENUSELECT); message WM_MENUSELECT;
  end;
 
implementation

procedure TForm1.WMMENUSELECT(var message: TWMMENUSELECT);
begin
  inherited;
  IsMenuOpen := not ((message.MenuFlag and $FFFF = 0) and (message.Menu = 0));
end;
Quelle: http://www.swissdelphicenter.ch/de/showcode.php?id=956


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:31 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz