![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как закрыть модальное окно?
PZ © (2006-12-25 12:51:00)У меня модальная форма без заголовка:
BorderStyle = bsNone
KeyPreviw = True
Всю площадь формы закрывает компонент Bevel1, а его
полностью закрывает метка Label1
Пробую два варианта закрыть форму - не закрывается.
Как же её можно закрыть? Подскажите, пожалуйста.
procedure TForm1.FormDblClick(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.Label1DblClick(Sender: TObject);
begin
Form1.Close;
end;
Anatoly Podgoretsky (2006-12-25 13:23:00) [41]> PZ (25.12.2006 13:14:03) [3]
Чем докажешь?
PZ (2006-12-25 13:21:00) [42]> [2] novill © (25.12.06 13:12)
У меня почему-то не работает. Проверю еще раз.
Ega23 (2006-12-25 13:16:00) [43]
> Form1 - это та самая модальная форма, которую пытаюсь закрыть
>
МодалРезулт:=мрОК
PZ (2006-12-25 13:14:00) [44]> [1] Anatoly Podgoretsky © (25.12.06 13:06)
Form1 - это та самая модальная форма, которую пытаюсь закрыть
novill (2006-12-25 13:12:00) [45][0] PZ (25.12.06 12:51)
второй вариант работает.
Anatoly Podgoretsky (2006-12-25 13:06:00) [46]> PZ (25.12.2006 12:51:00) [0]
А чей у тебя Form1 ?