Як прибрати мерехтіння форми при відкриття з нього модального вікна

У мене не мерехтить.

Дивний випадок.
Ну. DoubleBuffered чи постав.

В якому обробнику / методі написаний код відкриття?

Self.DoubleBuffered не допоміг

Є на формі грід у нього є OnDblClick ось там написано таке:

SelectForm: = TRefView.Create (nil);

try
if not SelectForm.Init (nref) then exit;
if SelectForm.ShowModal = mrOK then
begin
TDBGridEh (Sender) .DataSource.DataSet.Edit;
TDBGridEh (Sender) .DataSource.DataSet.Fields [2] .AsInteger: = SelectForm.Res;
TDBGridEh (Sender) .DataSource.DataSet.Post;
end;
finally
SelectForm.Free;
end;

> II (23.07.03 20:30)


if SelectForm.ShowModal = mrOK then begin
withTDBGridEh (Sender) .DataSource.DataSet do begin
DisableControls;
try
Edit;
Fields [2] .AsInteger: = SelectForm.Res;
Post;
finally
EnableControls;
end; // try
end; // with
end; // if

Ні не допоможе справа в тому що в SelectForm.Init (nref) є ось такий рядок Position: = poMainFormCenter а ще SelectForm.FormStyle за замовчуванням дорівнює fsMDIChild через якого форма перший раз прорисовувалася при Create а другий раз при ShowModal.
Я просто поставив FormStyle в fsNormal і все запрацювало чітко як мультіік

Сиджу ось і думаю: як би так ось можна було про fsMDIChild здогадатися. Та ще за замовчуванням (!)

> II (24.07.03 11:38)
для fsMDIChild можна з прапорцем fsVisible погратися.

Схожі статті