MDI-Child per Function erzeugen

[MSCH]

erstmal würde ich die Objekte Kapseln und nicht irgentwelche Variablen der MDIs vonaussen modifizieren. Dat is unfein.

Delphi-Quellcode:

function TclsExecuteFunction.KundeOeffnen(const intFmID:integer):boolean; 
var 
  fmKunde   :TfmKunde; 
begin 
  fmKunde:=nil;
  fmKunde:= TfmKunde.create(Self,intFmID); 
  result:= assigned(fmKunde);
end;

Da TfMKunde ein MDI ist, brauchst du kein Show. Self ist dasselbe wie Application.MainForm.

Delphi-Quellcode:

FmKunde = TFMKunde()
private
  FMID:Integer;
public
 constructor Create(AOwner:TComponent;AFmID:Integer),
end;

constructor...
begin
  inherited Create(AOwner);
  FMID:= aFmID;
end;

grez
msch