Menü automatisch schließen

[Angel4585]

Also ich hab das mal genauso wie Baeuerle gemacht und bei mir passiert das gleiche.

@ Marabu probier das doch mal aus vielleicht klappts bei dir ja.

Mein Code dazu:
Form1:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    datei1: TMenuItem;
    Timer1: TTimer;
    Item1: TMenuItem;
    procedure datei1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Enabled:=false;
Form2.showModal;
end;

procedure TForm1.datei1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;
end.

Form2

Delphi-Quellcode:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    item1: TMenuItem;
    Item2: TMenuItem;
    Item3: TMenuItem;
    procedure item1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.item1Click(Sender: TObject);
begin
showMessage('OK');
end;

end.

Einfach mal alle ausprobieren. Bei wem das funzt meldet sich.
WICHTIG: das MainMenu auf Form1 muss aufklappbar sein. d.h. wenn ich auf ein MenuItem kicke muss ein DropDown Menü erscheinen. Ich lasse es solange geöffnet bis die Form2 erscheint. Dann sollte auf Form2 Die ShowMessage nicht aktiviert werden können.