Indstillingsboks, hvordan?

For det første bør du undgå at autokreere formene. Det er noget skrammel.

Arrrh. Der er mange muligheder. Hvis man har en record/objekt med indstillinger som du vil redigere har jeg lavet forskellige måder. Den jeg synes bedst om er denne - men det er nok også den mest besværlige.

Klassen har en Edit-metode:

TSettings = class
private
  fChekced : array[0..max] of boolean;
public
  procedure Edit(aSender : TComponent);
  property Checked[aIndex : integer] : boolean read GetChecked; default;
end;

TfrmEditSettings = class(TForm)
private
public
  constructor Create(aSender : TComponent; aSettings : TSettings); reintroduce;
end;

procedure TSettings.Edit(aSender : TComponent);
var
  i : integer;
begin
  with TfrmEditSettings.Create(aSender,self) do
    try
      if ShowModal = mrOK then // Set values
        for i := 0 to max do
          fChecked[i] := CheckListBox.Checked[i];
    finally
      free;
    end;
end;

function TSettings.GetChecked(aIndex : integer) : boolean;
begin
  result := fChecked[aIndex];
end;

{TfrmEditSettings}

TfrmEditSettings.Create(aSender : TComponent; aSettings : TSettings);
var
  i : integer;
begin
  inherited Create(aSender);
  for i := 0 to max do begin
    CheckListBox.Items.Add('Linie: '+IntToStr(i)); // Der skal jo stå et eller andet!
    CheckListbox.Checked[i] := aSettings[i]; // Fordi jeg bruger "default"
  end; // for
end;

Jeg har ændret constructoren til formen (den du kalder TForm3) således at TSettings sendes med over. Man kan så diskutere om formen skal have lov til selv at ændre værdierne. Det har jeg ikke tilladt idet property TSettings.Checked[i] er en readonly. Det er derfor at Edit-metoden løber den igennem hvis ModalResult = mrOK.

Jeg håber at du(andre) kan forstå hvad jeg mener.

Jeg kan evt. lave et kørende eksempel.

du må godt lave et eks.

Hmm. Jeg synes det virker noget indviklet?
Er der ikke nogen som først kan fortælle mig hvorledes jeg skal åbne og lukke mit indstilling vindue.

Så må det med at checke selve indstillingerne komme bagefter!

Lukker... Takker!

wampiro-uha'dada. Beklager ventetiden, men hvis det stadig har interesse så har jeg et lille eksempel som du måske kan bruge.