Forum Replies Created
-
Posts
-
'Support' wrote:
Попробуйте версию 7.64
Теперь должно быть лучше, при условии, что используются методы Form.Hide и Form.Show
Изменил в модуле uHideForm процедуру ShowWindow(Application.MainForm.Handle, SW_SHOW);
на MainForm.Show
и ShowWindow(Application.MainForm.Handle, SW_HIDE);
на MainForm.Hide;
procedure TfHideForm.Button1Click(Sender: TObject);
begin
if Application.ShowMainForm = False then
begin
Application.Restore;
MainForm.Show;
Application.ShowMainForm := True;
end
else
begin
MainForm.Hide;
Application.ShowMainForm := False;
Application.Minimize;
end;
end;
Результат тот же.
'Support' wrote:Спасибо.
ShowWindow не влияет на свойство Visible, что сказывается на работе VCL. VCL ориентируется на значение этого свойства, поэтому наверное лучше fTestForm.Show и fTestForm.Hide…
Хорошо, со второй ошибкой разобрались, а как быть с первой?
