Плаваящая панель(форма) не зависимая от главной формы

[Человек_Борща]

привет всем!

Есть программа с 1 формой(TForm) и 1 панелью(Tpanel)
панель удалось сделать что-бы плавала по экрану..

Но когда сворачиваешь программу в панель задач(или в трей) сворачивается и панель..

как свернутьь программу не свернув панель?

[DIgorevich]

а каким кодом делается панель плавающей в данном случае?

[Человек_Борща]

точнее 2 формы , на одной из них панель.. при этом коде:

procedure TStayForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  sc_dragmove = $f012;
begin
  ReleaseCapture;
  StayForm.perform(wm_syscommand, sc_dragmove, 0);
end;

procedure TStayForm.StayTopWindGrMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
  sc_dragmove = $f012;
begin
  ReleaseCapture;
  StayForm.perform(wm_syscommand, sc_dragmove, 0);
end;

procedure TStayForm.TheCurrTimeMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
  sc_dragmove = $f012;
begin
  ReleaseCapture;
  StayForm.perform(wm_syscommand, sc_dragmove, 0);
end;

остаётся только сама панель(Tpanel), форма изначально невидима.

[DIgorevich]

Может имеет смысл не извращаться, а использовать только главную форму. На нее панель и свойства: DockSite = true; DragKind = dkDock; DragMde = dmAutomatic ??

[ArtInt]

Посмотри такой вариант, две формы сворачиваются независимо:
http://programmersforum.ru/showthread.php?t=5872

код от Квэнди:

type
TForm = class(TForm)
{...}
protected
procedure CreateParams(var Params: TCreateParams); override;
end;

implementation

{...}

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
Params.WndParent := GetDesktopWindow;
end;

[Человек_Борща]

DIgorevich:
Попробовал и это.
Вариант не подошёл, так как:
1. сворачивается вместе с программой
2. Имеет рамку с крестиком и заголовком

ArtInt:
Ваш вариант подошёл=) а как теперь убрать кнопку с панели задач?

[ArtInt]

Может так заменить?
//Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
Params.ExStyle := Params.ExStyle or WS_EX_TOOLWINDOW;

Вот еще интересная статья по данной теме, там обсуждаются также проблемы по данной теме:
http://www.rsdn.ru/forum/delphi/1560585.all.aspx

[Ins]

Имеет рамку с крестиком и заголовком

BorderStyle = bsNone. Отвечая на следующий вопрос (а как ее теперь перетаскивать), такой код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMNCHitTest(var Message: TWMNCHitTest);message WM_NCHITTEST;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
  Message.Result := HTCAPTION;
end;

[Человек_Борща]

Ins спасибо за вариант=)

ArtInt спасибо, это помогло!

Вопрос можно закрывать..

[igh0st]

Можно было главную форму сделать невидимой