|
#1
|
|||
|
|||
Проблема с формой
Есть нестандартная форма(картинка), как ее можно перетаскивать по экрану, и как сделать что бы она сразу запихивалась в трей а не где стандартно сворачиваються окна
Если можно по подробнее .........Только учусь.. |
#2
|
|||
|
|||
В трей - см компонент TCoolTrayIcon (я качал с торри).
По поводу перетаскивания, только сегодня постил код - посмотри вопросы за сегодня. |
#3
|
|||
|
|||
Цитата:
|
#4
|
|||
|
|||
Ну и ленивый ты...
Вот, блин, мОлодежь пошла... ждут когда им на блюдичке все подадут, сами лишний раз пошевелиться не хотят... компонент прицеплен. по поводу кода: Код:
procedure TCallAlertForm.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FIsMove := True; FDragPoint := Point(X , Y ); end; procedure TCallAlertForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin If FIsMove Then Begin Self.Left := Self.Left + x - FDragPoint.X; Self.Top := Self.Top + y - FDragPoint.y; End; end; procedure TCallAlertForm.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FIsMove := False; end; И в форме не забудь объявит переменные: Код:
FIsMove : Boolean; FDragPoint : TPoint; |
#5
|
|||
|
|||
вот нашел не много другое ))
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); const SC_DRAGMOVE = $F012;begin ReleaseCapture; Form1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0); end; думаю это легче )) но все равно спасибо а вот с компанентом не могбы помочь, как сделать что бы сразу сварачивалось в трей а форма оставалась на рабочем столе |
#6
|
|||
|
|||
Чего-чего???
я же тебе дал компонент. Ставишь там свойство MinimizeToTray (кажется так) и форма будет сворачиваться в трей. |
#7
|
|||
|
|||
Цитата:
мне нужно что бы форма осталась висеть на экране а и иконка в трее была, заместо стандартного открытого приложения .....вот.. |
#8
|
|||
|
|||
Тогда смотри в ФАКе как убрать кнопку с панели задач.
Например, здесь: http://www.delphisources.ru/pages/faq/desktop.html Последний раз редактировалось lmikle, 10.09.2008 в 23:10. |
#9
|
|||
|
|||
Цитата:
получилось только у меня теперь все скрываеться вместе с формой.... Последний раз редактировалось жекаизжека, 10.09.2008 в 23:24. |
#10
|
|||
|
|||
Вообще, можешь попробовать прогу убрать в трей и отрисовывать прямо на десктопе. Смотри в ФАКе как это делается.
|
#11
|
|||
|
|||
Цитата:
|
#12
|
|||
|
|||
Вот думаю то что тебе подойдет
|