[Sharky]

Добрый день, Мне бы нужно бы отрисовать мое окнов таск баре ,или в каком нибуть другом месте ,за ранее спасибо

[san-46]

Отрисовка "снимка" формы в другом месте десктопа:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  DeskTopDC: HDc;
  DeskTopCanvas: TCanvas;
  DeskTopRect: TRect;
begin
  DeskTopDC := GetWindowDC(GetDeskTopWindow);
  DeskTopCanvas := TCanvas.Create;
  DeskTopCanvas.Handle := DeskTopDC;
  DeskTopRect := Rect(20, 40, Form1.Width+20, Form1.Height+40);

  DeskTopCanvas.CopyRect(DeskTopRect, DeskTopCanvas, Form1.BoundsRect);
  ReleaseDC(GetDeskTopWindow, DeskTopDC);
  DeskTopCanvas.Free;
end;

Рисовать на таскбаре не получится.

[Sharky]

это совершенно не то ,мне нужно отрисовать мою форму на таск баре а не нарисовать . что бы кнопочки нажимались, а не просто были нарисованными. Тоесть так как это делает виндовс медиа 11

[moo2k]

Как можно что-то отрисовать на TaskBar?

[Sharky]

Можно .Посмотри как это делает Windows Media 11 когда сворачивается.
Да и прямоугольнички с кепшонами окошек то отрисовываются а значит можно и форму отрисовать )

[san-46]

Последний мой пост в этой теме.

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

Можно .Посмотри как это делает Windows Media 11 когда сворачивается.

Посмотрел - обычная кнопка на таскбаре с иконкой и надписью "Проигрыватель Win...". Чем она отличается от кнопок других приложений?

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

Да и прямоугольнички с кепшонами окошек то отрисовываются а значит можно и форму отрисовать )

Некорректно поставленное утверждение. Двое уже сказали (при необходимости, все, кто связывался с таскбаром скажут) одно и то же: Рисовать на таскбаре Windows не позволяет.

Точно такой же вопрос обсуждался здесь:
http://www.delphikingdom.com/asp/ans...IDAnswer=48115

[Sharky]

Я вот пока в деревне, домой вернусь скрин покажу может быть вы меня не так понимаете.

[Sharky]

Вот скриншот Windiws Media Player 11 показать не могу (тк она для сп2 а у меня 1) НО вот скрин проги TrueLenchBar это прога отрисовывает на таск баре всякие штуки полезные например деятельность цп ,памяти опиротивной и подкачки .Вот полюбуйтесь ,а san-46 ТВЕРТИТ что нельзя ничего отрисовавать )

[The Shadow]

Ммм... Где-то я видел материал на эту тему... Если вспомню и найду, скажу.

[ART]

а ты уверен, что эти проги отрисоваваются, а не поверх сидят?

[The Shadow]

Они не рисуются... И не поверх сидят... Не могу найти где я это видел. Они где-то регистрируются.

[san-46]

Приходится нарушать обет.
2 Sharky, давайте все же не путать таскбар и панель быстрого запуска - у Windows это разные окна. На снимке, который вами представлен - кнопка программы, которая помещена на панель быстрого запуска. Это можно сделать с любой программой в т.ч. и вашей. А на таскбаре "форму", как не тужтесь, отрисовать не получится, т.к. Windows при любом удобном случае его перересовывает. Теоретически можно было бы рисовать на кнопке, которая появляется в таскбаре (та, которая с картинкой и надписью) и связана с запущенной программой, но такой высший пилотаж я нигде не встречал.

[ART]

Возможно, что то типа того:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
h: HWND;
begin
 h := FindWindow('Shell_TrayWnd','');
 windows.SetParent(Button1.Handle,h);
 Button1.left:= 50;
end;

[KOOL]

Панель WMP как-то встраивается в таскбар, но не становится его потомком(Нажмите на пуск и пощелкайте Tab'ом). Во вложении она сама

[Internationale]

По-моему как написал выше ART, код

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
h: HWND;
begin
 h := FindWindow('Shell_TrayWnd','');
 windows.SetParent(Button1.Handle,h);
 Button1.left:= 50;
end;

является правильным, просто стоит мальца подработать позиции объектов. Вот только фигово, что получается поверх всего