TpageControl+SynEdit

[DimOn4Ik]

Возник вопрос...Как сделать чтоб когда нажимаешь "создать" или "открыть" создавалась новая вкладка TPageControl c компонентом SYnEdit...я нашел такую программу,но так всё через ActionList и я не знаю как настроить SynEdit,так как на форме его нет(

[mihali4]

Увы, у меня нет такого - TSynEdit.
На примере с простым Эдитом.
Берем пример из хэлпа и чуток дополняем:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  edt: TEdit;
  ts: TTabSheet;
begin
  with PageControl1 do
    for i := 0 to 3 do
      begin
      ts:=TTabSheet.Create(Self);
        ts.PageControl := PageControl1;
        //ts.TabVisible := (ts.PageIndex mod 2 = 0);
        ts.Caption := 'PageIndex: ' +
        IntToStr(ts.PageIndex) + '  TabIndex: ' +
          IntToStr(PageControl1.TabIndex);
         edt:=TEdit.Create(ts);
         edt.Parent:=ts;
         edt.Text:='Edit'+IntToStr(i);
      end;
end;

[DimOn4Ik]

спасибо..с synedit получилось

вот только как его настроить если самого компонента synedit или edit нету на форме?

мне например нужно в synedit включить подсчёт строк:

  TSynEdit.Gutter.ShowLineNumbers := cbLineNumbers.Checked;
  TSynEdit.SetFocus;

весь код

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  edt: TSynEdit;
  ts: TTabSheet;
begin
  with PageControl1 do
    for i := 0 to 3 do
      begin
      ts:=TTabSheet.Create(Self);
        ts.PageControl := PageControl1;
        //ts.TabVisible := (ts.PageIndex mod 2 = 0);
        ts.Caption := 'PageIndex: ' +
        IntToStr(ts.PageIndex) + '  TabIndex: ' +
          IntToStr(PageControl1.TabIndex);
         edt:=TSynEdit.Create(ts);
         edt.Parent:=ts;
         edt.Text:='SynEdit'+IntToStr(i);
      end;


      end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  TSynEdit.Gutter.ShowLineNumbers := cbLineNumbers.Checked;
end;

end.

17:48

не работает

Не стоит флудить... Пользуйтесь кнопкой "Правка".

[DimOn4Ik]

создавать я научился..

var
 frm:tsynedit;
 ts: TTabSheet;
 i:integer;

begin
  with PageControl1 do
  for i:=1 to 100 do
 ts:=TTabSheet.Create(Self);
 ts.PageControl := PageControl1;
 ts.Caption := 'New ' +IntToStr(ts.PageIndex) ;
  frm:=TSynEdit.Create(ts);
 frm.Parent:=ts;
 ts.Show;

а как их теперь уничтожать? )

через popupmenu пробывал ts.destroy;
так удалялась вся форма(

[mihali4]

Удаляем первый:

TTabSheet(FindComponent('New 1')).Destroy;

[DimOn4Ik]

ошибка,а других альтернативных решений нет?

[mihali4]

Создаваемым компонентам нужно имена давать...
Все работает прекрасно:

procedure TForm1.Button3Click(Sender: TObject);
var
 ts: TTabSheet;
 i:integer;
begin
  with PageControl1 do
  begin
  for i:=1 to 5 do
  begin
 ts:=TTabSheet.Create(Self);
 ts.PageControl := PageControl1;
 ts.Caption := 'New ' +IntToStr(i) ;
 ts.Name := 'New' +IntToStr(i) ;
 ts.Show;
 end;
 end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
TTabSheet(FindComponent('New1')).Destroy;
end;

[DimOn4Ik]

плохо что сразу 5 вкладок создает( мне бы как-то сделать чтоб создавал по одной и удалял

разобрался с вкладками,обьясните или дайте пожалуйста пример,как теперь работать с полем memo или synedit? как сохранять и копировать?

[DimOn4Ik]

может у кого есть исходник редактора с вкладками?

[Пепел Феникса]

mihali4, я когда делал многостраничный блокнот.
я юзал св-во TTabSheet.Controls пользуясь тем что я знаю что и в каком порядке я добавлял.