MDI und TMainMenu

[arbu man]

Das sollte doch nun kein problem sein:

Delphi-Quellcode:

var nureins:boolean;

// create
if  not nureins then begin
  nureins:=true;
  // erzeugen tform.create
end;

// onclose
begin
  nureins:=false;
end