TabbedNotebook1-Richedit tworzony dynamicznie

0

Hello World!

Mam problem z komponentem tabbednotebook.Chcialbym zeby po nacisnieciu buttona dodala sie zakladka i stworzyl sie na niej komponent richedit napisalem nastepujacy kod:

var
PoleTextowe : TRichedit;
begin
TabbedNotebook1.Pages.add('');
PoleTextowe:= TRichedit.Create(tabbednotebook1);
PoleTextowe.top := 50;
PoleTextowe.left := 60;
PoleTextowe.Parent := Form1;



ten kod tworzy komponent richedit na wszystkich zakladkach.
Co trzeba dopisac do   PoleTextowe:= TRichedit.Create(tabbednotebook1...);
aby tworzyl tylko na jednej wybranej zakladce??

pozdrawiam

Astarot
0

a nie lepiej użyć TPageControl?? na http://republika.pl/przystanek-delphi/k_edytor.html masz bardzo pięknie opisany przykład zakładkowej aplikacji :]

0

Poza tym, notebook jest chyba zachowany tylko dla kompatybilności ze starymi wersjami, czyli ogólnie mówiąc, jest przestarzały :).

0

Nie wiem, czy o to chodzi... KtoraStrona - tu podajesz na której stronie chcesz utworzyć nowy komponent.

procedure TForm1.NewRichEdit(KtoraStrona: Integer);
var
  RichEdit: TRichEdit;
begin
  if (PageControl1.PageCount - 1) < KtoraStrona then Exit;
  PageControl1.ActivePageIndex := KtoraStrona;
  RichEdit:= TRichEdit.Create(PageControl1.ActivePage);
  RichEdit.Parent := PageControl1.ActivePage;
  RichEdit.Top := 0;
  RichEdit.Left := 0;
  RichEdit.Width := PageControl1.ActivePage.Width;
  RichEdit.Height := PageControl1.ActivePage.Height;
  RichEdit.Lines.Clear;
  RichEdit.ScrollBars := ssBoth;
  RichEdit.Show;
end;

Jacek

0

Bardzo wam dziekuje.Przy waszej pomocy udalo mi sie rozwiazac moj problem

pozdr.

Astarot

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0