Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

Подписаться Бесплатный дискуссионный лист Подписчиков 308
←   Февраль 2004   →
 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


За последние 60 дней ни разу не выходила


Сайт листа: http://codeguru.ru
Открыт: 21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес модератора: comp.soft.prog.prog-owner@subscribe.ru

Модератор
3V

Статистика

308 подписчиков
0 за неделю

Открытие многих окон [Delphi 6] [Win98]

Здравствуйте!
Как сделать поддержку многооконного интерфейса? То есть чтобы пользователь
мог открыть очень много совершенно одинаковых окон. Как бы склонировать их?
Пока!
С уважением Lakmus
http://www.nvkz.kuzbass.net/lakmus
Номер выпуска : 1733
Возраст листа : 137
Количество подписчиков : 377
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/71856
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить  
"Lakmus-[DJ]"
Thu, 5 Feb 2004 06:33:38 +0700 (#71856)

 

Ответы:

Здарова, Lakmus-[DJ]!

5 февраля 2004 г., четверг, 04:33:38, ты намылил:

Делов-то:

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2:=TForm2.Create(Application);
Form2.Show;
end;

--
Никогда больше не буду говорить афоризмами. Да, кстати, запишите мою последнюю
фразу

Ответить   Томилов Александр Thu, 5 Feb 2004 04:41:42 +0500 (#71861)

 

Здарова, Lakmus-[DJ]!

5 февраля 2004 г., четверг, 04:33:38, ты намылил:

В догонку к своему ответу

Код в главной форме:

public
Forms: array[1..200] of TForm;
CurrFormID: Integer;
{ Public declarations }
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Inc(CurrFormID);
Forms[CurrFormID] := TForm2.Create(Application);
Forms[CurrFormID].Show;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
CurrFormID := 0;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i: Integer;
begin
for i := 1 to CurrFormID do
Forms[i].Free;
end;

Код во второй форме:
procedure TForm2.FormCreate(Sender: TObject);
begin
label1.Caption := IntToStr(Form1.CurrFormID);
end;

--
Никогда больше не буду говорить афоризмами. Да, кстати, запишите мою последнюю
фразу

Ответить   Томилов Александр Thu, 5 Feb 2004 04:52:44 +0500 (#72273)

 

Здарова, Lakmus-[DJ]!

5 февраля 2004 г., четверг, 04:33:38, ты намылил:

В догонку к своему ответу

Код в главной форме:

public
Forms: array[1..200] of TForm;
CurrFormID: Integer;
{ Public declarations }
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Inc(CurrFormID);
Forms[CurrFormID] := TForm2.Create(Application);
Forms[CurrFormID].Show;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
CurrFormID := 0;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i: Integer;
begin
for i := 1 to CurrFormID do
Forms[i].Free;
end;

Код во второй форме:
procedure TForm2.FormCreate(Sender: TObject);
begin
label1.Caption := IntToStr(Form1.CurrFormID);
end;

--
Никогда больше не буду говорить афоризмами. Да, кстати, запишите мою последнюю
фразу

Ответить   Томилов Александр Thu, 5 Feb 2004 04:52:44 +0500 (#72329)

 

Здравствуйте, Lakmus-[DJ].

Вы писали 5 февраля 2004 г., 1:33:38:

Lakmus-[DJ]> Здравствуйте!
Lakmus-[DJ]> Как сделать поддержку многооконного
Lakmus-[DJ]> интерфейса? То есть чтобы пользователь
Lakmus-[DJ]> мог открыть очень много совершенно
Lakmus-[DJ]> одинаковых окон. Как бы склонировать их?
Lakmus-[DJ]> Пока!
Решение данное проблемы показано в примерах, входящих в поставку
D5, D6, D7, а так же есть готовый проект MDI Application в репозитории
Делфи.

С уважением,
Feniks mailto: feni***@b*****.ua
Номер выпуска : 1754
Возраст листа : 137
Количество подписчиков : 375
Адрес в архиве : http://subscribe.ru//archive/comp.soft.prog.prog/msg/72342
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Feniks Thu, 5 Feb 2004 14:37:33 +0200 (#72342)