Управление компонентами с pagecontrol

@g3nchik · Регистрация: 17.08.2012

Студворк — интернет-сервис помощи студентам

Делаю текст. редактор и не понимаю как записать/брать инфу с memo с активной вкладки..например, сохранить или открыть, как сохранить текст memo именно из активной вкладки ?

Добавлено через 12 минут
Создаю вкладку вот так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.N1Click(Sender: TObject);
var
  panel: TPanel;
tabsheet: ttabsheet;
 syn: TSynMemo;
begin
 
tabsheet := ttabsheet.create(self);  
tabsheet.caption := 'Íîâàÿ âêëàäêà';
tabsheet.pagecontrol := pgc1;
panel:= tpanel.Create(self);
panel.Parent:= tabsheet;
panel.BevelOuter:= bvNone;
panel.Align:= alClient;
syn:= TSynMemo.Create(self);
syn.Parent:= panel;
syn.Align:= alClient;
 
end;

@Nutserus · 25.10.2012, 17:55

(FindComponent('SynMemo'+IntToStr(PageCo ntrol1.ActivePageIndex+1)) as TSynMemo) - это твой активный мемо.

@g3nchik · 25.10.2012, 18:05 **[ТС]**

Что то я не совсем понял. Как к нему обращаться ?

@Nutserus · 25.10.2012, 18:11

Как и к любому TSynMemo, например сохранить
(FindComponent('SynMemo'+IntToStr(PageCo ntrol1.ActivePageIndex+1)) as TSynMemo).Lines.SaveToFile();

@g3nchik · 25.10.2012, 18:16 **[ТС]**

Хм..
Not enough actual parameters

@Nutserus · 25.10.2012, 18:18

ты имя файла то впиши куда сохранять.

@g3nchik · 25.10.2012, 18:19 **[ТС]**

Да причем тут ? вообще не робит.

@Nutserus · 25.10.2012, 18:21

Значит меняй программиста.

@BitHo0k · 25.10.2012, 18:22

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
var
  Form4: TForm4;
  List:TList;
 
implementation
 
{$R *.dfm}
 
procedure TForm4.BitBtn1Click(Sender: TObject);
var
 
tabsheet: ttabsheet;
 syn: TMemo;
begin
 
tabsheet := ttabsheet.create(self);
tabsheet.caption := 'Новая вкладка';
tabsheet.pagecontrol := PageControl1;
 
 
syn:= TMemo.Create(self);
syn.Parent:= tabsheet;
syn.Align:= alClient;
 
List.Add(syn);
 
end;
 
procedure TForm4.Button1Click(Sender: TObject);
begin
 TMemo( List[ PageControl1.ActivePageIndex]).Lines.SaveToFile('1.txt');
end;
 
procedure TForm4.FormCreate(Sender: TObject);
begin
List:=TList.Create;
end;

@g3nchik · 25.10.2012, 18:23 **[ТС]**

перезагрузил среду - норм..спасибо.

@Nutserus · 25.10.2012, 18:24

Ну разве я так писал?

@BitHo0k · 25.10.2012, 18:28

Сообщение от Nutserus

Ну разве я так писал?

Это пример

@g3nchik · 25.10.2012, 18:31 **[ТС]**

блин..сохраняет ток на первой вкладке..

@BitHo0k · 25.10.2012, 18:40

Сообщение от g3nchik

блин..сохраняет ток на первой вкладке..

Мой пример работает

@Nutserus · 25.10.2012, 18:43

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button1Click(Sender: TObject);
var
  tabsheet: ttabsheet;
  syn:TMemo;
begin
  tabsheet := ttabsheet.create(self);
  tabsheet.caption := 'Íîâàÿ âêëàäêà';
  tabsheet.pagecontrol := PageControl1;
  syn:= TMemo.Create(self);
  syn.Parent:= tabsheet;
  syn.Align:= alClient;
  syn.Name:='Memo'+IntToStr(PageControl1.PageCount);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  (FindComponent('Memo'+IntToStr(PageControl1.ActivePageIndex+1)) as TMemo).Lines.SaveToFile('c:\1.txt');
end;

@g3nchik · 25.10.2012, 19:05 **[ТС]**

Видео

Добавлено через 9 минут

Сообщение от Nutserus

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button1Click(Sender: TObject);
var
  tabsheet: ttabsheet;
  syn:TMemo;
begin
  tabsheet := ttabsheet.create(self);
  tabsheet.caption := 'Íîâàÿ âêëàäêà';
  tabsheet.pagecontrol := PageControl1;
  syn:= TMemo.Create(self);
  syn.Parent:= tabsheet;
  syn.Align:= alClient;
  syn.Name:='Memo'+IntToStr(PageControl1.PageCount);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  (FindComponent('Memo'+IntToStr(PageControl1.ActivePageIndex+1)) as TMemo).Lines.SaveToFile('c:\1.txt');
end;

не юзабельно

@BitHo0k · 25.10.2012, 19:11

Сообщение от g3nchik

Видео

Добавлено через 9 минут

не юзабельно

Вот работает!

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
var
  Form4: TForm4;
  List:TList;
 
implementation
 
{$R *.dfm}
 
procedure TForm4.FormDestroy(Sender: TObject);
begin
  List.Free;
end;
 
procedure TForm4.NewClick(Sender: TObject);
var
 
tabsheet: ttabsheet;
 syn: TMemo;
begin
 
tabsheet := ttabsheet.create(self);
tabsheet.caption := 'Новая вкладка';
tabsheet.pagecontrol := PageControl1;
 
 
syn:= TMemo.Create(tabsheet);
syn.Parent:= tabsheet;
syn.Align:= alClient;
 
List.Add(syn);
 
end;
 
procedure TForm4.SaveClick(Sender: TObject);
begin
 TMemo( List[ PageControl1.ActivePageIndex]).Lines.SaveToFile('1.txt');
end;
 
procedure TForm4.Button1Click(Sender: TObject);
begin
 List.Delete(PageControl1.ActivePageIndex);
PageControl1.ActivePage.Free;
end;
 
procedure TForm4.FormCreate(Sender: TObject);
begin
List:=TList.Create;
end;

@g3nchik · 25.10.2012, 19:20 **[ТС]**

Сообщение от BitHo0k

Вот работает!

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
var
  Form4: TForm4;
  List:TList;
 
implementation
 
{$R *.dfm}
 
procedure TForm4.FormDestroy(Sender: TObject);
begin
  List.Free;
end;
 
procedure TForm4.NewClick(Sender: TObject);
var
 
tabsheet: ttabsheet;
 syn: TMemo;
begin
 
tabsheet := ttabsheet.create(self);
tabsheet.caption := 'Новая вкладка';
tabsheet.pagecontrol := PageControl1;
 
 
syn:= TMemo.Create(tabsheet);
syn.Parent:= tabsheet;
syn.Align:= alClient;
 
List.Add(syn);
 
end;
 
procedure TForm4.SaveClick(Sender: TObject);
begin
 TMemo( List[ PageControl1.ActivePageIndex]).Lines.SaveToFile('1.txt');
end;
 
procedure TForm4.Button1Click(Sender: TObject);
begin
 List.Delete(PageControl1.ActivePageIndex);
PageControl1.ActivePage.Free;
end;
 
procedure TForm4.FormCreate(Sender: TObject);
begin
List:=TList.Create;
end;

Вот для вас

@BitHo0k · 25.10.2012, 19:36

Сообщение от g3nchik

Вот для вас

Исходники выложите

@g3nchik · 25.10.2012, 19:45 **[ТС]**

юзаю TSynMemo.
http://rghost.ru/41151950

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@Nutserus 210 / 169 / 24 Регистрация: 24.04.2012 Сообщений: 615
	25.10.2012, 17:55
	(FindComponent('SynMemo'+IntToStr(PageCo ntrol1.ActivePageIndex+1)) as TSynMemo) - это твой активный мемо. 0

@g3nchik 6 / 6 / 0 Регистрация: 17.08.2012 Сообщений: 170
	25.10.2012, 18:05 [ТС]
	Что то я не совсем понял. Как к нему обращаться ? 0

@Nutserus 210 / 169 / 24 Регистрация: 24.04.2012 Сообщений: 615
	25.10.2012, 18:11
	Как и к любому TSynMemo, например сохранить (FindComponent('SynMemo'+IntToStr(PageCo ntrol1.ActivePageIndex+1)) as TSynMemo).Lines.SaveToFile(); 1

@g3nchik 6 / 6 / 0 Регистрация: 17.08.2012 Сообщений: 170
	25.10.2012, 18:16 [ТС]
	Хм.. Not enough actual parameters 0

@Nutserus 210 / 169 / 24 Регистрация: 24.04.2012 Сообщений: 615
	25.10.2012, 18:18
	ты имя файла то впиши куда сохранять. 0

@g3nchik 6 / 6 / 0 Регистрация: 17.08.2012 Сообщений: 170
	25.10.2012, 18:19 [ТС]
	Да причем тут ? вообще не робит. 0

@Nutserus 210 / 169 / 24 Регистрация: 24.04.2012 Сообщений: 615
	25.10.2012, 18:21
	Значит меняй программиста. 0

@g3nchik 6 / 6 / 0 Регистрация: 17.08.2012 Сообщений: 170
	25.10.2012, 18:23 [ТС]
	перезагрузил среду - норм..спасибо. 0

@Nutserus 210 / 169 / 24 Регистрация: 24.04.2012 Сообщений: 615
	25.10.2012, 18:24
	Ну разве я так писал? 0

@g3nchik 6 / 6 / 0 Регистрация: 17.08.2012 Сообщений: 170
	25.10.2012, 18:31 [ТС]
	блин..сохраняет ток на первой вкладке.. 0

@g3nchik 6 / 6 / 0 Регистрация: 17.08.2012 Сообщений: 170
	25.10.2012, 19:45 [ТС]
	юзаю TSynMemo. http://rghost.ru/41151950 0