Задвинуть окно формы

[Stanislav]

Подскажите пожайлусто как можно задвинуть окно формы используя top
тоесть как зделать так чтоб из top отнемалось по 5-10 единиц до тех пор пока скажем он не станет -100? Помогите пожайлусто да и желательно чтоб фокус формы не терялся...
Большое спасибо..

[mihali4]

Все очень просто...

procedure TMyForm.Button1Click(Sender: TObject);
begin
while Top>-100 do
begin
Top:=Top-10;
Application.ProcessMessages;
end;
end;

Если хотите скрыть форму, то
while Top>-Heght do

[Stanislav]

Большое вам спасибо только вот у меня еще один вопрсик возник я хочу чтоб она плавно задвигалась и выдвигалась я уменьшил Top:=Top-10;
вместо 10 на 2... Но она улетает с ускорением сначало медленно через долю секунды с ускорением как можно уменьшить скорость? заранее спасибо. Ах да и еще один вопрос почему после этого форма не реагирует на закрытие условие цикла вродебы завершилось так почему форма не на что не реагирует..?

[mihali4]

я хочу чтоб она плавно задвигалась и выдвигалась я уменьшил Top:=Top-10;
вместо 10 на 2... Но она улетает с ускорением сначало медленно через долю секунды с ускорением как можно уменьшить скорость?

Проверил. У меня очень плавное движение, без ускорения.

еще один вопрос почему после этого форма не реагирует на закрытие условие цикла вродебы завершилось так почему форма не на что не реагирует..?

Аналогично, у меня нет такого глюка...

З.Ы. Да, вот что может быть. Категорически не рекомендую компилировать с включенным режимом оптимизации. Программа, и довольно часто, ведет себя непредсказуемо...
Рекомендую отключить.

[Stanislav]

Я попробывал что то нечего не получаеться порылся в с воих фагах и вот что нарыл:

Создаем две формы и две кнопки
и во оброботчиках кнопок пишем:


procedure TForm1.Button1Click(Sender: TObject);
begin
form2.visible:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form2.Close;

И вот что пишем во второй форме:
procedure TForm2.FormShow(Sender: TObject);
begin
AnimateWindow (Form2.Handle, 1000, AW_VER_POSITIVE );
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
AnimateWindow(handle, 500, AW_VER_NEGATIVE or AW_HIDE);
end;

Во воложении лежит исходник кому интересно:
И спабибо кто откликнулся на помощь...

end;

[Stilet]

Но она улетает с ускорением сначало медленно через долю секунды с ускорением

А это тебе не показалось? поставь везде по 1000 в AnimateWindow...

почему после этого форма не реагирует на закрытие

В каком смысле?

P.S. У меня все путем идет и с оптимизатором и без него, на всякий случай спрошу какая версия делфи?

[Stanislav]

Дело в том что вы смотрите не тот код:
procedure TMyForm.Button1Click(Sender: TObject);
begin
while Top>-100 do
begin
Top:=Top-10;
Application.ProcessMessages;
end;
end;

А тот код который вы цетируете я уже разобралься и просто отписалься что есть такой вариант вдруг такой вопрос у других возникнет... вот и все

[Stanislav]

Вот получилься готовый вариант если кого интересует та же проблема вот исходник:

[mihali4]

Только не совсем правильно использовать константы.
Например вместо

if top=-200 then begin
showmessage('Задвинуто');
timer2.Enabled:=false;
form2.Top:=-150;

правильнее было бы использовать:

if top<=-Height then begin
showmessage('Задвинуто');
timer2.Enabled:=false;
//form2.Top:=-150;

Попробуйте в вашем варианте (сделав, естественно, BorderStyle не None) передвинуть форму 2 вниз или изменить размеры.

[Романнн]

ха......а вариант-то не готовый попробуй два раза нажать батон1 и твоя форма уедет за 7 морей