13.02.2008, 10:52
|
|
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме:
1819358
Репутация:
75
|
|
Сообщение от Aristarh Dark
OnCloseQuery
Код:
CanClose:=not(Form2.Vilible);
Код:
procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=not(Form2.Vilible);
end;
end.
не получается. выделяет красным эту строку-
Код:
CanClose:=not(Form2.Vilible);
может какой модуль надо подключить?
|
|
|