Oeps, het feit dat het hier om een MDI Child was mij even ontgaan.
Dan zou het inderdaad kunnen dat Show reeds eerder uitgevoerd wordt.
De oplossing die je zou kunnen maken is de FormCreate te overschrijven zodat je alle parameters mee kunt geven.
Delphi Code:
type
TPDMedewerkerInfoForm = class(TForm)
FMedewerker: MedewerkerRecord;
public
constructor Create(AOwner: TComponent; const Medewerker: MedewerkerRecord); reintroduce; overload;
property Medewerker: MedewerkerRecord read FMedewerker write FMedewerker;
end;
constructor TPDMedewerkerInfoForm.Create(AOwner: TComponent; const AMedewerker: MedewerkerRecord);
begin
inherited Create(AOwner);
Medewerker := AMedewerker;
end;
Waarbij je in je MedewerkerRecord al die velden zet. Is wel zo makkelijk in plaats van al die velden apart meegeven.
Dan kun je daarna:
Delphi Code:
var
Mederwerker: MedewerkerRecord;
begin
Medewerker.Relnr := MWRelnr;
Medewerker.Naam := MWnaam;
Medewerker.Nummer := MWnummer;
Medewerker.Vervallen := MWvervallen;
Medewerker.Dossier := MWDossier;
rsChild := TPDMedewerkerInfoForm.Create(Self, Medewerker);
CronusAdvToolBar.AddMDIChildMenu(rsChild);
rsChild.OnClose := ChildFormClose;
Inc(FChildCount);
end;
Bookmarks