|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
14.11.2007, 20:34 | #1 |
Квадрокоптерист
Участник клуба Подтвердите свой е-майл
Регистрация: 29.09.2007
Сообщений: 1,824
|
Задвинуть окно формы
Подскажите пожайлусто как можно задвинуть окно формы используя top
тоесть как зделать так чтоб из top отнемалось по 5-10 единиц до тех пор пока скажем он не станет -100? Помогите пожайлусто да и желательно чтоб фокус формы не терялся... Большое спасибо..
Я часть той силы, что вечно хочет зла, но вечно совершает благо..
|
14.11.2007, 20:48 | #2 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Все очень просто...
Код:
while Top>-Heght do |
14.11.2007, 21:51 | #3 |
Квадрокоптерист
Участник клуба Подтвердите свой е-майл
Регистрация: 29.09.2007
Сообщений: 1,824
|
Большое вам спасибо только вот у меня еще один вопрсик возник я хочу чтоб она плавно задвигалась и выдвигалась я уменьшил Top:=Top-10;
вместо 10 на 2... Но она улетает с ускорением сначало медленно через долю секунды с ускорением как можно уменьшить скорость? заранее спасибо. Ах да и еще один вопрос почему после этого форма не реагирует на закрытие условие цикла вродебы завершилось так почему форма не на что не реагирует..?
Я часть той силы, что вечно хочет зла, но вечно совершает благо..
Последний раз редактировалось Stanislav; 14.11.2007 в 21:55. |
14.11.2007, 22:04 | #4 | ||
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Цитата:
Цитата:
З.Ы. Да, вот что может быть. Категорически не рекомендую компилировать с включенным режимом оптимизации. Программа, и довольно часто, ведет себя непредсказуемо... Рекомендую отключить. Последний раз редактировалось mihali4; 14.11.2007 в 22:07. |
||
14.11.2007, 23:23 | #5 |
Квадрокоптерист
Участник клуба Подтвердите свой е-майл
Регистрация: 29.09.2007
Сообщений: 1,824
|
Я попробывал что то нечего не получаеться порылся в с воих фагах и вот что нарыл:
Создаем две формы и две кнопки и во оброботчиках кнопок пишем: 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;
Я часть той силы, что вечно хочет зла, но вечно совершает благо..
|
15.11.2007, 08:19 | #6 | ||
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Цитата:
P.S. У меня все путем идет и с оптимизатором и без него, на всякий случай спрошу какая версия делфи?
I'm learning to live...
|
||
15.11.2007, 18:22 | #7 |
Квадрокоптерист
Участник клуба Подтвердите свой е-майл
Регистрация: 29.09.2007
Сообщений: 1,824
|
Дело в том что вы смотрите не тот код:
procedure TMyForm.Button1Click(Sender: TObject); begin while Top>-100 do begin Top:=Top-10; Application.ProcessMessages; end; end; А тот код который вы цетируете я уже разобралься и просто отписалься что есть такой вариант вдруг такой вопрос у других возникнет... вот и все
Я часть той силы, что вечно хочет зла, но вечно совершает благо..
|
18.11.2007, 20:45 | #8 |
Квадрокоптерист
Участник клуба Подтвердите свой е-майл
Регистрация: 29.09.2007
Сообщений: 1,824
|
Вот получилься готовый вариант если кого интересует та же проблема вот исходник:
Я часть той силы, что вечно хочет зла, но вечно совершает благо..
|
18.11.2007, 21:03 | #9 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Только не совсем правильно использовать константы.
Например вместо Код:
Код:
Последний раз редактировалось mihali4; 18.11.2007 в 21:07. |
18.11.2007, 21:06 | #10 |
Пользователь
Регистрация: 04.11.2007
Сообщений: 64
|
ха......а вариант-то не готовый попробуй два раза нажать батон1 и твоя форма уедет за 7 морей
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Передача данных из формы в родительское окно | OSKiller | JavaScript, Ajax | 1 | 29.01.2008 23:34 |
Окно | MadDog__ | Win Api | 0 | 17.01.2008 00:33 |
Окно из DLL | SunKnight | Общие вопросы Delphi | 1 | 16.12.2007 03:36 |
«Окно+символ». Создать класс, представляющий окно в текстовом режиме. | RustreX | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 11.11.2007 19:28 |
Как сделать так чтобы окно формы всегда было поверх остальных окон? | HelloZAPOR | Общие вопросы Delphi | 5 | 23.07.2007 08:05 |