Menü automatisch schließen

[Baeuerle]

Hallo zusammen,

ich habe folgendes Problem:

Ein Formular mit einem MainMenu. Nach einer gewissen Zeit ( über Timer gesteuert ) soll geprüft werden, ob das MainMenu gerade aktiv ist. Wenn ja soll dieses geschlossen werden.

Aktiv = Einträge sind sichtbar

Danke im vorraus

Baeuerle

[s.h.a.r.k]

Hallo!

Ich würde das ganze so machen: Lege einen Timer auf die Form und sag ihm dass er das MainMenu schließen soll. Allerdigns musst du Enabled auf False setzen. Als Zeit gibts du die Zeit ein nach der das MainMenu geschlossen werden soll.
Beim OnPopup-Ereignis des MainMenu trägst du dann folgendes ein:
Timer1.Enabled := True;

[Chegga]

Hi,

Zitat von Baeuerle:

Wenn ja soll dieses geschlossen werden.

Das MainMenu "schließen" kann man mit MainMenu1.Destroy; machen.
Die Frage ist, ob du das auch willst?!

MfG Marc

P.S.:
Etwas Code wäre auch nicht schlecht.

[Baeuerle]

Hi S.H.A.R.K,

danke für die Antwort... jedoch habe ich mich wohl nicht korrekt ausgedrückt.

Das mit dem Timer ist mir klar.
Das Problem ist das

Zitat:

sag ihm dass er das MainMenu schließen soll

wie mache ich dies????

@Chegga

ich will das Menü nicht freigeben sondern schließen !!!

[Baeuerle]

**PUSH**

[Luckie]

Findest du es nicht auch etwas unverschähm, schon nach zwei Stunden deinen Thread wieder nach oben zu holen? In der Delphipraxis ist dies erst wieder nach 24 Stunden gestattet.

[Angel4585]

Hehe gibs ihm Luckie

[chrisw]

Ich würde einfach einen Mausklick auf das Menü emulieren !

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;

Chris

[ichbins]

wobei man allerdings auch irgendwoher die Menükoordinaten braucht...

[Angel4585]

Kennt niemand eine geeignete PostMessage od. SendMessage?