- Код: Выделить всё
Memo4.Width:= Memo4.Width+1;
Memo4.Width:= Memo4.Width-1;
Memo4.Refresh;
Memo4.Repaint;
Memo4.Refresh;
Memo4.Update;
Memo4.Invalidate;
Memo4.Refresh;
Memo4.Repaint;
Memo4.Refresh;
Memo4.Refresh;
Memo4.Repaint;
Memo4.Refresh;
Memo4.Update;
Memo4.Invalidate;
Memo4.Refresh;
Memo4.Repaint;
Memo4.Refresh;
for I:= 0 to 100 do
Application.ProcessMessages;
Создавать отдельный поток неохота. Как его принудительно обновить?