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

   Найти похожие ветки [EnableWindow]

← →
Kair ©   (2004-06-03 21:53) [0]

var
 Enbd: Boolean = True;

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

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

---

← →
panov ©   (2004-06-03 22:32) [1]

А почему процедура и в ней не 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;

---

← →
panov ©   (2004-06-03 22:33) [2]

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

---

← →
Kair ©   (2004-06-04 05:58) [3]

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

---

Страницы: 1 вся ветка

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



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