Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c