[Ztrel]

Здравствуйте, уважаемые программисты всея форума!
У меня появился еще один вопросик...

В Delphi усть хорошенькая функция AnimateWindow. Как пользоваться ею я знаю, но возникла проблема - при компиляции программы сначала происходит компиляция, и лишь потом центрирование формы по рабочему столу! А должно быть наоборот...

Пытался сначала написать так:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Position:= poScreenCenter;
end;

//  анимация окна при появлении
procedure TForm1.FormShow(Sender: TObject);
begin
AnimateWindow(Handle, 1000, AW_BLEND or AW_SLIDE);
end;

Но ничего не получилось, хотя по логике вроде бы должно

Помогите пожалуйста!

P.S. - Заранее спасибо всем откликнувшимся!

[AleD]

Код:

Form1.Position:= poScreenCenter;

Этим ты лишь указываешь окну установить при появлении окна нужную позицию, но не устанавливаешь саму позицию этим параметром, юзай Left Top для этого, вычислить середину окна не сложно

[Ztrel]

Что-то у меня не получается...
Получилось лишь получить размеры экрана... А что с ними дальше делать - не представляю...

Помогите пожалуйста (

[Страдалецъ]

Код:

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;

[Ztrel]

Сообщение от Страдалецъ

Код:

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;

Все работает! Спасибо большое! )

[AntoNechayuk]

Страдалецъ

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; 


а у меня не работает как надо: пока на появившемся окне не "кликнешь" - изображение окна глючное и кнопок вообще нет!

[AleD]

Сообщение от AntoNechayuk

а у меня не работает как надо: пока на появившемся окне не "кликнешь" - изображение окна глючное и кнопок вообще нет!

Этот метод глючный, как вариант можно использовать TTimer+Form1.AlphaBlend+Form1.AlphaBlendValue, то есть в начале программы ставить на 0 AlphaBlendValue и с помощью таймера прибавлять значение

[Страдалецъ]

Сообщение от AntoNechayuk

а у меня не работает как надо: пока на появившемся окне не "кликнешь" - изображение окна глючное и кнопок вообще нет!

Нечто похожеее у меня было, когда я использовал компоненты сторонние для скинирования, обновление этих компонент исправило ситуевину.
Может у вас аналогичная ситуация?