Einzelnen Beitrag anzeigen

TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
2.942 Beiträge
 
Delphi 12 Athens
 
#3

AW: Deaktivieren von Controls in VCL Frame klappt nicht

  Alt 18. Mai 2023, 18:00
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
  Mit Zitat antworten Zitat