PaNEL

← →
diks © (2003-01-22 17:48) [0]

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

← →
Delirium^.Tremens © (2003-01-22 17:51) [1]

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

← →
Chubais © (2003-01-22 17:55) [2]

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

← →
MBo © (2003-01-22 17:55) [3]

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

← →
MBo © (2003-01-22 17:56) [4]

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

← →
KDenis © (2003-01-22 17:58) [5]

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

← →
diks © (2003-01-22 18:04) [6]

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

← →
KDenis © (2003-01-22 18:14) [7]

Для особо одарённых:
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;

← →
Chubais © (2003-01-22 18:24) [8]

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

← →
KDenis © (2003-01-22 19:23) [9]

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

← →
KDenis © (2003-01-22 19:26) [10]

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

← →
Anatoly Podgoretsky © (2003-01-22 19:51) [11]

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

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

← →
Mihey (2003-01-22 23:35) [13]

Опускай её!

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

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

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

PaNEL Найти похожие ветки