VPF::TReplaceDialog ошибка при закрытие формы

cemick

Дата 13.2.2009, 18:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 6.7.2006
Где: Санкт-Петербург

Репутация: 2
Всего: 6

Если кинуть на форму TReplaceDialog и выполнить ReplaceDialog.Execute, и не закрывая ReplaceDialog закрыть форму то можно поиметь ошибку.. Наверняка кто то уже встречался, может сможете объяснить как этого избежать и в чем причина. Среда Delphi 7.

Christoph

Дата 13.2.2009, 18:49 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 1
Всего: 11

У меня делфи 7, такой ошибки нет, если хочешь чтоб помогли скажи что за ошибка, но можешь использовать такой код

Код


var
  Form1: TForm1;
   Open:boolean;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Open:=ReplaceDialog1.execute ;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Open then
CanClose:=false
else CanClose:=True;
end;

procedure TForm1.ReplaceDialog1Close(Sender: TObject);
begin
Open:=False;
end;

end.

--------------------

cemick

Дата 13.2.2009, 19:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 6.7.2006
Где: Санкт-Петербург

Репутация: 2
Всего: 6

лихо девочки плясали.. smile

ошибся, вы правы ошибки не происходит, ошибку навели мне..

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »