|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Копирование формы со всеми свойствами
Добрый день. Подскажите как можно скопировать форму, чтобы все свойства и объекты были такие же как и у главной???
|
#2
|
||||
|
||||
Скопировать в каком смысле?
Создать второе окно во время выполнения программы? Вопросы как всегда радуют. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
||||
|
||||
Цитата:
|
#4
|
|||
|
|||
Цитата:
unit1.pas, unit1.dfm в новый: unit2.pas, unit2.dfm - только в новых измени название формы (класс формы) и юнита. В общем смысл думаю понятен. |
#5
|
||||
|
||||
Код:
var f1, f2, f3: TMainForm; begin f1 := TMainForm.Create(nil); f2 := TMainForm.Create(nil); f3 := TMainForm.Create(nil); f1.show; f2.show; f3.show; end; — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#6
|
||||
|
||||
Код:
program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} var i: Integer; begin Application.Initialize; for i:=1 to 6 do begin Application.CreateForm(TForm1, Form1); Form1.Left:=i*32; Form1.Show; end; Application.Run; end. Пишу программы за еду. __________________ |