| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Close из Activate [D7, WinXP]

DimDim ©   (2007-04-01 19:57:00) 

Уважаемые Мастера, не сочтите за труд!
Открываю модальное окно, передаю в него (в Edit-ы) определенные значения, программно нажимаю на кнопку "Найти". Если поиск прошел нормально, то это окно должно быть закрыто. Если нет - остаться открытым для изменения Edit-ов.
Так вот: все это выполняется в процедуре Activate модального окна и команда Close там работать не хочет (пока Activate не отработало до конца). Как это обойти? А то что-то я перегрелся...
Заранее спасибо!

---

Reindeer Moss Eater   (2007-04-02 11:10:00) [1]

Так вот: все это выполняется в процедуре Activate модального окна

А что, нет более подходящего места для этого кода?

---

_Аноним   (2007-04-02 09:59:00) [2]

Действительно не закрывается при таком раскладе, можете проверить.
Правильный ответ - sniknik

---

SergGG   (2007-04-02 09:20:00) [3]

У тебя не выполняется условие
> if Poisk=True then

---

sniknik   (2007-04-01 23:47:00) [4]

> procedure TFormPoisk.FormActivate(Sender: TObject);
> begin
> ...
> if Poisk=True then Close;
> end;

const
 WM_DOCLOSE = WM_USER + 101;

type
 TFormPoisk= class(TForm)
   procedure FormActivate(Sender: TObject);
 private
   procedure WMDoClose(var Message: TMessage); message WM_DOCLOSE;
 public
 end;

var
 FormPoisk: TFormPoisk;

implementation

procedure TFormPoisk.WMDoClose(var Message: TMessage);
begin
 Close;
end;

procedure TFormPoisk.FormActivate(Sender: TObject);
begin
 if Poisk then PostMessage(Handle, WM_DOCLOSE, 0, 0);
end;
(свое событие для наглядности можно стандартное типа WM_CLOSE послать)

хотя, это плохое решение, формой мигать..., лучше не допускать открытия/активации до, вместо того чтобы бороться с последствиями после.

---

Palladin   (2007-04-01 23:26:00) [5]

справку почитаешь и узнаешь...
за одно поитересуйся операторными скобками begin end

---

DimDim   (2007-04-01 23:22:00) [6]

Извините, не понял с exit...
У меня:

procedure TFormPoisk.FormActivate(Sender: TObject);
begin
...
if Poisk=True then Close;
end;

По Close должно закрыться окно, а оно не закрывается. Как я понимаю потому, что до конца не отработала функция Activate. При чем exit?

---

Palladin   (2007-04-01 20:35:00) [7]

ну и делай exit после close

---

Наверх