глюк.

← →
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.
хотя она-то как раз закрываться не должна.

во блин, просто
в онкейап в editform стояло if key=vk_escape then Close
а я тут мучаюсь..........
8|

глюк. Найти похожие ветки