Своя панелька в Панели задач WinXP(на Delphi)

[DmT]

Помогите найти сайт где можно посмотреть как написать приложение-панель для панели задачь WinXP.(Ну типа как MediaPlayer сворачивается, или панелька поска от Google, или как языковая панель)
Или просто напишите как это сделать.
*Только чтобы работало коректно, т.е. чтобы можно было перитаскивать влево-вправо вверх-вниз по панели задач.

[mihali4]

Поиск по форуму, ключевое слово TRAY или ТРЭЙ.

[Stilet]

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

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  Sc_dragmove = $F012;
begin            Align:=alnone;
  ReleaseCapture;
  Perform(WM_SYSCOMMAND, Sc_dragmove, 0);
  if Mouse.CursorPos.X<50 then  begin Align:=alLeft; Width:=50; end;
  if Mouse.CursorPos.X>(Screen.Width-50) then  begin Align:=alRight; Width:=50; end;
  if Mouse.CursorPos.Y<50 then  begin Align:=alTop; Height:=50; end;
  if Mouse.CursorPos.Y>(Screen.Height-50) then  begin Align:=alBottom; Height:=50; end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 // BorderStyle:=bsNone; <- Это если тебе заголовок не нужен
 Align:=alBottom;
end;

end.

Теперь тягать можеш свою форму за ее тело и она будет прилипать к краям если ты отпустиш ее в определенной от них близости

[DmT]

Да нет же.
Мне не нужны никакие раб.столы или программа прилипающая к краям экрана.
mihali4, и в какую тему мне там пойти?
Вот Картинка
http://www.programmersforum.ru/attac...1&d=1195209288
Мне надо разместить свои компоненты точно также!

[mihali4]

mihali4, и в какую тему мне там пойти?

Рекомендую просмотреть все, излишне не будет...

[DmT]

Те темы вообще не в тему...
всмысле не подходят под мою просьбу.

[mihali4]

Уточняем. Нужно, чтобы приложение было свернуто рядом часами, так же, как и аська, и сетевые значки (на приведенном рисунке)?
Тогда я уже ответил.

[DmT]

нет. там между языковой панелью(написанно "RU") и треем(отделен небольшим круглишочком со стрелочкой влево) есть панель от стороннего разработчика(читаем: "не Microsoft") Google. На этой панельке есть такие компаненты: поле ввода(как TEdit) и 4 кнопки.

[JTG]

ну как-то так:

1. найти окно Shell_TrayWnd (вся панель задач) -> ReBarWindow32 (всё, что между пуском и треем) -> ToolbarWindow32 с заголовком "Выполнение приложений"
2. Уменьшить его ширину и в получившееся справа место вклеить своё окно, указав хэндл ReBarWindow32 в качестве родителя.

Только неизвестно что получится, если пользователь попытается создать ещё одну панель стандартно (пкм-панели инструментов-создать) и будет ли всё это вообще работать
Может в апи есть какое-то готовое решение?

----

Ыыы, так и знал, COM и интерфейсы. Великий Мануал рулит
http://msdn2.microsoft.com/en-us/library/bb776819.aspx

[DmT]

ниа(((
плохой вариант(((
Я то хотел чтобы она(моя програмка-панелька) могла своботдно перемещатся пользователем.