[жекаизжека]

Есть нестандартная форма(картинка), как ее можно перетаскивать по экрану, и как сделать что бы она сразу запихивалась в трей а не где стандартно сворачиваються окна
Если можно по подробнее
.........Только учусь..

[lmikle]

В трей - см компонент TCoolTrayIcon (я качал с торри).
По поводу перетаскивания, только сегодня постил код - посмотри вопросы за сегодня.

[жекаизжека]

Сообщение от lmikle

В трей - см компонент TCoolTrayIcon (я качал с торри).
По поводу перетаскивания, только сегодня постил код - посмотри вопросы за сегодня.

а могбы выложить компанент, и дать линку на пост, если не сложно конечно )

[lmikle]

Ну и ленивый ты...
Вот, блин, мОлодежь пошла... ждут когда им на блюдичке все подадут, сами лишний раз пошевелиться не хотят...

компонент прицеплен.

по поводу кода:

Код:

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;

[жекаизжека]

вот нашел не много другое ))

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
const SC_DRAGMOVE = $F012;begin ReleaseCapture;
Form1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;

думаю это легче )) но все равно спасибо
а вот с компанентом не могбы помочь, как сделать что бы сразу сварачивалось в трей а форма оставалась на рабочем столе

[lmikle]

Чего-чего???
я же тебе дал компонент. Ставишь там свойство MinimizeToTray (кажется так) и форма будет сворачиваться в трей.