DevillioДобрый день!
Смог добиться создания, удаления окон, обновления данных в MDI окнах без морганий
...вот таким способом:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
private
{ Private declarations }
FMainFormOnLock: Boolean;
function TMainForm.LockDrawing(const AIgnoreLock: Boolean = False): Boolean;
begin
Result := False;
if (not FMainFormOnLock) or (AIgnoreLock) then
try
LockWindowUpdate(Self.Handle);
finally
FMainFormOnLock := True;
Result := True;
end;
end;
procedure TMainForm.UnLockDrawing;
begin
TimerUnlockDrawing.Enabled := False;
TimerUnlockDrawing.Enabled := True;
end;
procedure TMainForm.TimerUnlockDrawingTimer(Sender: TObject);
begin
try
TimerUnlockDrawing.Enabled := False;
LockWindowUpdate(0);
finally
FMainFormOnLock := False;
end;
end;
//затем в любом месте:
try
MainForm.LockDrawing();
//обновлялки-рисовалки
finally
MainForm.UnLockDrawing()
end;
Программа стала выглядеть "собранной", все контролы на окне единовременно прорисовываются, все ок.
Но в некоторых случаях, например, при изменении размера, при разворачивании окна из свернутого состояния, даже просто при возврате в приложение из другого, жуткая перерисовка, контролы все моргают, "проявляются" по очереди, раздражает, выглядит недоработано. Используется Devexpress и скины.
Как то можно это моргание побороть?
Спасибо!
1)
Почему здесь нельзя использовать LockWindowUpdate , потому что эта функция предназначена для других целей
2) Кури ClientHandle + WM_SETREDRAW
