Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Как вызвать новую форму в DELPHI)
вариант 1

uses ...,uForm2;

var
frm2:TForm2;
begin

try
frm2:=TForm2.create(nil);
frm2.show;
finally
freeandnil(frm2);
end;

end;

или

вариант 2
uses ...,uForm2;

var
frm2:TForm2;
begin

try
frm2:=TForm2.create(nil);
frm2.showmodal;
finally
freeandnil(frm2);
end;

end;


Думаю, не ошибусь, если промолчу ;)
1 | Автор: Archi | 2008-03-13, 23:04 | Изменено: Archi - Чт, 2008-03-13, 23:05   |  Репутация: [ + 3 ]
Ну первый вариант похоже не подойдет, так как сразу после показа формы (метод show) выполниться блок finally, в котором память выделенная под форму очистится. А во втором варианте блок finally не выполниться до момента закрытия второй формы, ну или если в блоке try случиться ошибка, поэтому второй вариант правильный. Хотя может кто-то думает иначе cool
2 | Автор: gerra | 2008-03-15, 14:58   |  Репутация: [ + 7 ]
  • Страница 1 из 1
  • 1
Поиск: