Цитата:
Страдалецъ
PHP код:
Код:
procedure TForm1.FormShow(Sender: TObject);
begin
Application.MainForm.Left := (Screen.Width - Application.MainForm.Width) shr 1;
Application.MainForm.Top := (Screen.Height - Application.MainForm.Height) shr 1;
AnimateWindow(Application.MainForm.Handle, 1000, AW_BLEND or AW_SLIDE);
end;
|
а у меня не работает как надо: пока на появившемся окне не "кликнешь" - изображение окна глючное и кнопок вообще нет!