Ok, hier etwas Code:
Delphi-Quellcode:
constructor Tf_MyForm.Create(AOwner : TComponent;
SomeData : ISomeData;
SomeThingy : ISomeThingy;
ThingName : string;
OnThingNameChanged : TOnThingNameChange;
ReadOnly : Boolean);
begin
inherited Create(AOwner);
FSomeData := SomeData;
FThingName := ThingName;
FOnThingNameChanged := OnThingNameChanged;
FThingNameChanged := false;
frm_MyFrame.Init(FSomeData,
SomeThingy,
ThingName,
OnChangeButtonEnableState,
OnThingNameChanged,
true);
if ReadOnly then
begin
frm_MyFrame.nb_Port.ReadOnly := true;
frm_MyFrame.tf_URL.ReadOnly := true;
frm_MyFrame.b_Test.Enabled := false;
frm_MyFrame.b_Default.Enabled := false;
b_OK.Enabled := false;
// Workaround: unschön, aber deaktiviert wenigstens alles
frm_MyFrame.Enabled := false;
end;
end;
Und nein, auf frm_MyFrame wird in Tf_MyForm nirgends mehr zugegriffen.
Grüße
TurboMagic