---

Er der en klog person der ved hvordan laver man en ny TabSheet i PageControl
mens programet kører?


/michael

---

Michael wrote:

> Er der en klog person der ved hvordan laver man en ny TabSheet i PageControl
> mens programet kører?
>
> /michael

Du skal først have en variabel af typen TTabsheet og hvis PageControl er en
TPageControl gør du sådan her for at få den nye tab ind i PageControl og gøre
den til den aktive side:

var
DenNyeTab: TTabSheet;
begin
DenNyeTab := TTabSheet.Create(FrmMain); // FrmMain er hovedformen
DenNyeTab.PageControl := PageControl;
DenNyeTab.Parent := PageControl;
PageControl.ActivePage := DenNyeTab;
// evt. flere egenskaber sættes.
end;

Det burde gøre det. Du kan evt. lave en funktion, som så returnerer den nye
TabSheetm så du kan lege videre med den efter funktionskaldet. Et eksempel på en
funktion kunne være:

function LavNyTab: TTabSheet;
begin
Result := TTabSheet.Create(FrmMain); // FrmMain er hovedformen
Result.PageControl := PageControl;
Result.Parent := PageControl;
PageControl.ActivePage := Result;
end;

Så kan du for eksempel gøre dette:

//ændrer caption på den nye tabsheet
LavNyTab.Caption := 'Fil01.txt';

På den måde har du kontrol over Tabsheet også efter funktionskaldet. Det var
bare en idé, der er god at have nogle gange. Om du bruger den å du selvfølgelig
selv bestemme.

Hilsen Brixen.

---

> Du skal først have en variabel af typen TTabsheet og hvis PageControl er
en
> TPageControl gør du sådan her for at få den nye tab ind i PageControl og
gøre
> den til den aktive side:


Jeg takker mange gange.

/md