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

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

[EnableWindow] [D6, Win2k]

Kair ©   (2004-06-03 21:53:00) 

var
 Enbd: Boolean = True;

procedure SetEnable(Value: Boolean);
begin
if EnableWindow(Wnd, Value) then
 begin
  Enbd := Value;
 end;
end;

Процедура SetEnable(False) окно блокирует, но Enbd в False не устанавливается...
Почему?

---

Kair   (2004-06-04 05:58:00) [1]

Ага, спасибо.

---

panov   (2004-06-03 22:33:00) [2]

А почему процедура и в ней не var-параметр?
Прошу прощения - сначала не заметил, что переписывается другая переменная.

---

panov   (2004-06-03 22:32:00) [3]

А почему процедура и в ней не var-параметр?

If the window was previously disabled, the return value is nonzero.

If the window was not previously disabled, the return value is zero. To get extended error information, call GetLastError.

var
Enbd: Boolean = True;

procedure SetEnable(var Value: Boolean);
begin
 EnableWindow(Wnd, Value);
 Enbd := IsWindowEnabled(Wnd);
end;

---

Наверх