Изменение размера формы внутри обработчика.

[Сквозняк]

Код: Выделить всё

procedure TForm1.MenuItem1Click(Sender: TObject);
begin
Form1.Width:=100;
//Что сюда вписать чтобы Form1.Width:=100; подействовал?
sleep(10000);
Form1.Width:=500;
end;

Собственно вопрос.

[zub]

application.processmessages;

[Padre_Mortius]

на fpc 2.6.0 и лазарус 0.9.31 все работает без замечаний

[Сквозняк]

application.processmessages;

Оно, видел на форуме но не помнил как называется.

У меня 0.9.30.2, часто переустанавливать полгига модулей + дополнительный компонент слишком затратно.

[zub]

>>на fpc 2.6.0 и лазарус 0.9.31 все работает без замечаний
Зависит от виджетов - под win работает, под gtk - нет

[leo_bsv]

application.processmessages;

+1
в linux будет как-то так

Код: Выделить всё

  Width:=100;
  Application.ProcessMessages;
  sleep(10000);
  Width:=500;

ну естественно прибавится время на обработку...