Einzelnen Beitrag anzeigen

Benutzerbild von f4k3
f4k3

Registriert seit: 15. Aug 2007
Ort: Nürnberg
313 Beiträge
 
Delphi 2007 Architect
 
#3

Re: PageControl neues TabSheet erstellen und Frame darauf ze

  Alt 17. Jun 2009, 08:50
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
Sascha
  Mit Zitat antworten Zitat