| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
глюк.
777 © (2002-10-15 23:01:00)
procedure TSearchForm.ValueListEditor1KeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if key=vk_escape then Close;
end;
procedure TSearchForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if EditForm.Visible=true then EditForm.BringToFront;
//EditForm почему-то закрывается, хотя должна просто
//активизироваться...
end;
Это я неправ что-ли? Почему?!?
777 (2002-10-16 13:27:00) [1]во блин, просто
в онкейап в editform стояло if key=vk_escape then Close
а я тут мучаюсь..........
8|
777 (2002-10-16 12:35:00) [2]Ни одна из этих форм главной не является.
> ЮЮ © (16.10.02 06:09)
не помогает.
без этого закрывались обе формы, а
в этом случае закрывается только EditForm.
хотя она-то как раз закрываться не должна.
Separator (2002-10-16 07:10:00) [3]Определись, какая из них форм Main
ЮЮ (2002-10-16 06:09:00) [4]Судя по EditForm.BringToFront EditForm находится на SearchForm, которую ты закрываешь.
if EditForm.Visible then begin
EditForm.BringToFront;
Action := caNone;
end;
| |
