nonVCL Kapselung

[Neutral General]

Nachdem man versucht ein zweites Fenster zu erstellen mit CreateWindowEx bekomme ich

Delphi-Quellcode:

---------------------------
Message
---------------------------
Invalid menu handle
---------------------------
OK   
---------------------------

Wobei ich dazu sagen muss, dass ich ne Globale Variable habe:

Delphi-Quellcode:

var
  IDs: Integer = -1;

und:

Delphi-Quellcode:

constructor TNVCLControl.Create(AParent: TNVCLControl);
begin
  inherited Create;
  inc(IDs);
  FID := IDs;
end;

Das heißt jedes Control bekommt ne andere ID weil sie jedesmal um 1 erhöht wird. Und da TNVCLForm = class(TNVCLControl) bekommt auch jede Form ihre einzigartige ID.

Gruß
Neutral General