| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

PaNEL [D6, Win95/98]

diks ©   (2003-01-22 17:48:00) 

Помогите как сделать чтобы при наведении на форму(Form2) панель(panel4) медленно опускалась?

---

Chubais   (2003-01-24 12:11:00) [1]

> diks © (24.01.03 11:55)
> Не мог посмотреть что пишу меня не было!

АААААААААААААААААААААААААААААААААА!!!!!!!!!!!!!!!!!!!!!!!!!!

---

diks   (2003-01-24 11:55:00) [2]

Не мог посмотреть что пишу меня не было!
Спасибо за ответ!

---

Chubais   (2003-01-23 11:16:00) [3]

KDenis © (22.01.03 19:23)
ты б хоть смотрел иногда чо пишешь...

---

Mihey   (2003-01-22 23:35:00) [4]

Опускай её!

---

uw   (2003-01-22 22:36:00) [5]

Я подозреваю, он хочет, чтобы панель ползла в чужой программе!

---

Anatoly Podgoretsky   (2003-01-22 19:51:00) [6]

А с чего ты решил, что про мышку речь, может про тень

---

KDenis   (2003-01-22 19:26:00) [7]

<<ну дык если мыш остановить, и панель остановится>>
Я дал только наводку, а дальше сам разберётся...
(например использовать таймер)

---

KDenis   (2003-01-22 19:23:00) [8]

Да, ты прав, это магия...
if panel4.Top+panel4.Width>form2.Width
then panel4.Top:=0
Если нижний край panel4выходит за пределы form2, то ставим panel4в верхней части form2

---

Chubais   (2003-01-22 18:24:00) [9]

KDenis © (22.01.03 18:14)
ну дык если мыш остановить, и панель остановится
а строчки, учитывая постановку задачи,
if panel4.Top+panel4.Width>form2.Width
then panel4.Top:=0
из области магии...мне непонятны...

---

KDenis   (2003-01-22 18:14:00) [10]

Для особо одарённых:
procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
panel4.Top:=panel4.Top+1;
sleep(100);
if panel4.Top+panel4.Width>form2.Width
then panel4.Top:=0
end;

---

diks   (2003-01-22 18:04:00) [11]

чтобы сама при наведении потихоньку ползла вниз!

---

KDenis   (2003-01-22 17:58:00) [12]

Меняй свойство Top

---

MBo   (2003-01-22 17:56:00) [13]

Так она вдавится ;))

---

Chubais   (2003-01-22 17:55:00) [14]

))))))))))))))

---

MBo   (2003-01-22 17:55:00) [15]

Bewelwidth менять и другие Bewel***

---

Delirium^.Tremens   (2003-01-22 17:51:00) [16]

Drunken Dolphin #1
Апплодисменты!

---

Наверх