/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Delphi - Ny TabSheet i PageControl
Fra : Michael


Dato : 18-05-01 21:41

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


/michael



 
 
jyde (18-05-2001)
Kommentar
Fra : jyde


Dato : 18-05-01 23:24

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.



Michael (20-05-2001)
Kommentar
Fra : Michael


Dato : 20-05-01 10:26

> 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



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste