Текущий архив: 2002.10.28;
Скачать: CL | DM;
Вниз
глюк. Найти похожие ветки
← →
777 © (2002-10-15 23:01) [0]
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;
Это я неправ что-ли? Почему?!?
← →
ЮЮ © (2002-10-16 06:09) [1]Судя по EditForm.BringToFront EditForm находится на SearchForm, которую ты закрываешь.
if EditForm.Visible then begin
EditForm.BringToFront;
Action := caNone;
end;
← →
Separator © (2002-10-16 07:10) [2]Определись, какая из них форм Main
← →
777 © (2002-10-16 12:35) [3]Ни одна из этих форм главной не является.
> ЮЮ © (16.10.02 06:09)
не помогает.
без этого закрывались обе формы, а
в этом случае закрывается только EditForm.
хотя она-то как раз закрываться не должна.
← →
777 © (2002-10-16 13:27) [4]во блин, просто
в онкейап в editform стояло if key=vk_escape then Close
а я тут мучаюсь..........
8|
Страницы: 1 вся ветка
Текущий архив: 2002.10.28;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.02 c
