--- Добавлено в 2025-01-17 04:14:03
Попробуй погонять с таким кодом в Win (те убери ремарки, черт знает зачем я их поставил)
procedure THIWin._onResize;
var
i: integer;
begin
inherited;
Control.Invalidate;
for i := 0 to Control.ChildCount - 1 do
Control.Children[i].Invalidate;
Sendmessage(Control.Handle, US_RESIZE, 0, 0);
end;
--- Добавлено в 2025-01-17 04:17:55
??? Оригинально, но всего этого раньше и не было. Должно работать и без перерисовки.
--- Добавлено в 2025-01-17 04:22:09
А лучше всего погоняй вот с таким кодом
procedure THIWin._onResize;
//var
// i: integer;
begin
inherited;
if (Control.Width = GetSystemMetrics(SM_CXSCREEN)) or (Control.Height = GetSystemMetrics(SM_CYSCREEN)) then
Control.Invalidate;
// for i := 0 to Control.ChildCount - 1 do
// Control.Children[i].Invalidate;
Sendmessage(Control.Handle, US_RESIZE, 0, 0);
end;
Поиск
Друзья
Администрация