Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi PageControl neues TabSheet erstellen und Frame darauf zeigen (https://www.delphipraxis.net/135700-pagecontrol-neues-tabsheet-erstellen-und-frame-darauf-zeigen.html)

f4k3 16. Jun 2009 09:48


PageControl neues TabSheet erstellen und Frame darauf zeigen
 
Moin Moin liebe DPler ;)

Ich mach gerade ne Anwendung die mittel TAPI-Schnittstelle die Anrufe am angeschlossenen Telefon registriert und aus
der Anwendung heraus die Bedienung des Telefon erlaubt ...

jetzt hab ich das problem, wenn gerade telefoniert wird, aber ein 2. Anruf eingeht wird dieser nicht behandelt.
jetzt wollt ich des gern so machen dass ich mittels ner PageControl jedem Anruf ne eigene Seite spendier ... mit den
Anruferinformationen ... die Anruferinformationen werden jeweils in einem Frame angezeigt ...

Nur wie erstelle ich eine neue Seite ... und wie weiße ich dieser Seite den Frame zu?
Ich hab bereits gekuckt in der Online-Hilfe ... aber es gibt anscheinend beim PageControl keine spezielle Methode dafür :(

Hoff ihr könnt mir weiter helfen ...

Gruß Euer f4k3 ;)

// edit ... zur Laufzeit xD ... hab ich vergessen ;)

uligerhardt 16. Jun 2009 10:13

Re: PageControl neues TabSheet erstellen und Frame darauf ze
 
Vielleicht sowas?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  Sheet: TTabSheet;
  Frame: TMemo; // Memo als Dummy - hier dein Anruf-Frame
begin
  Sheet := TTabSheet.Create(Self);
  Sheet.Name := 'Sheet' + IntToStr(PageControl1.PageCount);

  Frame := TMemo.Create(Self);
  Frame.Name := 'CallFrame' + IntToStr(PageControl1.PageCount);
  Frame.Align := alClient;
  Frame.Parent := Sheet;

  Sheet.PageControl := PageControl1;
  PageControl1.ActivePage := Sheet;
end;

f4k3 17. Jun 2009 07:50

Re: PageControl neues TabSheet erstellen und Frame darauf ze
 
Zitat:

Zitat von uligerhardt
Vielleicht sowas?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  Sheet: TTabSheet;
  Frame: TMemo; // Memo als Dummy - hier dein Anruf-Frame
begin
  Sheet := TTabSheet.Create(Self);
  Sheet.Name := 'Sheet' + IntToStr(PageControl1.PageCount);

  Frame := TMemo.Create(Self);
  Frame.Name := 'CallFrame' + IntToStr(PageControl1.PageCount);
  Frame.Align := alClient;
  Frame.Parent := Sheet;

  Sheet.PageControl := PageControl1;
  PageControl1.ActivePage := Sheet;
end;

Danke für die Antwort ... habs noch nicht geschafft es auszuprobieren ;)

geb dann wieder rückmeldung ;)


Gruß f4k3


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:29 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz