Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.55 MB
Время: 0.032 c