Timer в Delphi : что я делаю не так?

← →
wisardo © (2005-12-31 00:37) [0]

procedure tMainf.timerL(sender: tobject); var FTick: Longint; begin FTick := GetTickCount; repeat Mainf.ClientHeight:=200; Mainf.ClientWidth:=300; until GetTickCount-FTick>=3000; Mainf.ClientHeight:=600; Mainf.ClientWidth:=800; end;

Хотел сделать так, чтобы окно программы при запуске было 300х200 и через несколько секунд становилось 800х600, но при вышеуказанном алгоритме маленький вариант окна не показывается вообще, а через 3000 мс появляется сразу большой.
Подскажите, что не так?
Заранее спасибо.

← →
Eraser © (2005-12-31 00:46) [1]

> wisardo © (31.12.05 00:37)

То что напрограммировал, уж извини, пример того, как не надо программировать.

Кидай на форму таймер, св-о Enabled ставь false, в обработчике впиши
Mainf.ClientHeight:=200; Mainf.ClientWidth:=300;
В OnShow формы впиши таймер.enabled := true;

← →
Eraser © (2005-12-31 00:48) [2]

> Eraser © (31.12.05 00:46) [1]

вместо
> Mainf.ClientHeight:=200;
> Mainf.ClientWidth:=300;

в обработчик таймера пиши
таймер.Enabled := false; Mainf.ClientHeight:=600; Mainf.ClientWidth:=800;

Благодарю.

Timer в Delphi : что я делаю не так? Найти похожие ветки