← →
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-параметр?
Прошу прощения - сначала не заметил, что переписывается другая переменная.

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

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