Create (fx. Label, Edit) på en TabbedNotebook ?

Jeg går ud fra at det er TPageControl du benytter, hvis du f.eks. vil sætte en label ind på din første Tab i din TPageControl kan du gøre sådan:

    With TLabel.Create(PageControl1.Pages[0]) do
  begin
      Caption:='En test';
    Top:=10;
    Left:=10;
    Parent:=PageControl1.Pages[0];
  end;

Næ du skriver jo TabbedNotebook det havde jeg ikke lige set, men du bør ikke benytte TabbedNotebook for som de skriver i hjælpen:
TTabbedNotebook is provided for backwards compatibility. New applications should use TPageControl instead.

Jeg kan bare ikke rigtig få PageControl til at virke på samme måde :-S
den skal i Form1.Create; lave sider ud fra en ini fil:

<inifil>
[Settings]
Dansk=1
Engelsk=1
Biologi=1
Samfundsfag=1
</inifil>

Det fik jeg den til med den anden...
og så var planen at den så skulle lave fx. en listbox og en memo på hver af siderne...

procedure TForm1.FormCreate(Sender: TObject);
var
myini : Tinifile;
i : integer;
sl : Tstringlist;
mytab : Ttabsheet;
mylistbox : Tlistbox;
mymemo : Tmemo;
begin
sl := Tstringlist.Create;
myini := Tinifile.Create('d:\settings.ini');
myini.ReadSection('settings',sl);
for i := 0 to sl.Count - 1 do

  begin
    mytab := Ttabsheet.Create(self);
    mytab.Parent := pagecontrol1;
    mytab.PageControl := pagecontrol1;
    mytab.PageIndex := i;
    mytab.Name := 'tab'+ inttostr(I);
    mytab.Caption := sl[i];
    mytab.Visible := true;
    mylistbox := Tlistbox.Create(mytab);
    mylistbox.Parent := mytab;
    mylistbox.Left := 10;
    mylistbox.Top := 20;
    mylistbox.Visible := true;
    mylistbox.Items.Add('Run time listbox');
    mymemo := Tmemo.Create(mytab);
    mymemo.Parent := mytab;
    mymemo.Left := 150;
    mymemo.Top := 20;
    mymemo.Height := mylistbox.Height;
    mymemo.Width := 120;
    mymemo.Lines.Add('Run time memo');
    mymemo.Visible := true;


  end;
  sl.Free;

end;


Stoney

Du må undskylde 'stoney'...
men jeg kan ikke se hvordan noget virker i den der :-S...
og så er det ikk nemt at sætte ind i det jeg allerede har i koden i forvejen...

jeg gik ud fra du havde en pagecontrol1 på din form.

Det skal virke, har lige testet

Stoney

ret lige til hvor din inifil ligger også

Stoney

Det virker da sikker :)
men jeg kan ikke lige se hvad den laver hvor :-s
og så kan jeg ikke rigtig flette det ind i den kode der allerede er i Form1.Create

>>kroning... smid lige et svar, så deler jeg bare pointne

Hvis du ikke kan bruge det til noget så skal jeg vel ingen points have. Prøv evt. at poste den kode du har i din Create.

Jeg har fået bixet noget sammen der virker :D
med noget af jeres, og noget fra nogen andre spg her på eksperten...

tager jeg helt fejl hvis jeg siger at "sl.Free;" skal rettes til "myini.Free;" :-/

de skal begge free's, jeg glemte bare myini

Stoney

også "sl.Free;"?

ja, hvis du har createt den skal den også free's
altså hvis du har brugt nedenstående af min kode

sl : Tstringlist;
sl := Tstringlist.Create;

Stoney

okay...

MyTab    : TTabSheet;
MyListBox : TListBox;
MyMemo    : TMemo;

Hvad med dem?