Уважаемые эксперты, столкнулся с неприятным мерцанием форм на показе и деактивации после перехода на Александрию 11.
Раньше такого не было.
Сейчас создал пустой тестовый проект чтобы проверить.
procedure TForm1.Button1Click(Sender: TObject);
var
AForm: TForm1;
begin
AForm := TForm1.Create(nil);
AForm.Show; //мерцание тут
OR
AForm.ShowModal(procedure(ModalResult: TModalResult) //мерцание тут
begin
//AForm.Free;
end);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ModalResult := mrOk; //мерцание тут
OR
Hide; //мерцание тут
Close;
end;
Формы пустые, пробовал разные заливки и что угодно.
Оно мерцает и все!
А на рабочем проекте просто показывается рабочий стол на полсекунды при любом показе/закрытии новой формы.
Подскажите куда копать, не форумах не могу найти ничего.
Вопрос
SVTX
Уважаемые эксперты, столкнулся с неприятным мерцанием форм на показе и деактивации после перехода на Александрию 11.
Раньше такого не было.
Сейчас создал пустой тестовый проект чтобы проверить.
procedure TForm1.Button1Click(Sender: TObject); var AForm: TForm1; begin AForm := TForm1.Create(nil); AForm.Show; //мерцание тут OR AForm.ShowModal(procedure(ModalResult: TModalResult) //мерцание тут begin //AForm.Free; end); end; procedure TForm1.Button2Click(Sender: TObject); begin ModalResult := mrOk; //мерцание тут OR Hide; //мерцание тут Close; end;Формы пустые, пробовал разные заливки и что угодно.
Оно мерцает и все!
А на рабочем проекте просто показывается рабочий стол на полсекунды при любом показе/закрытии новой формы.
Подскажите куда копать, не форумах не могу найти ничего.
Ссылка на комментарий
2 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.