RichEdit zusammen TabSheet neu erstellen ...

Major-Hork

Hi erst Mal,

ich möchte ein Programm schreiben, indem man kein MDI Fenster benutzt sondern
PageControl's (style=tsFlatButtons)!
Nur das Problem ist das ich nicht weiß, wie man ein RichEdit per Code neu erstellt!

Neuer TabSheet:

[code]
void __fastcall Twmain::Neu1Click(TObject *Sender)
{
    static number = 1;
    TTabSheet *pPage   = new TTabSheet(projects);
    pPage->PageControl = projects;
    pPage->Caption     = AnsiString("Unbenannt -") + IntToStr(++number);
}
[/code]

Meine Idee, hat aber nicht funktioniert:

[code]
void __fastcall Twmain::Neu1Click(TObject *Sender)
{
    static number = 1;
    TTabSheet *pPage   = new TTabSheet(projects);
    pPage->PageControl = projects;
    pPage->Caption     = AnsiString("Unbenannt -") + IntToStr(++number);
    TRichEdit *reEdit  = new TRichEdit(projects);
}
[/code]

Danke schon für eure Hilfe ...

PuppetMaster2k

Sie mal in der FAQ nach unter Komponenten Benutzen - zur Laufzeit erstellen, anzeigen und Events zuweisen

Major-Hork

Ok danke hat funktioniert ...