Форма только на рабочем столе

[Darte]

Доброе время суток.
Начал делать проект к зачёту, столкнулся с некоторыми трудностями.
Подскажите, пожалуйста, как сделать так, чтобы форма отображалась только на рабочем столе.. Так сказать на фоне..
И ещё... Можно ли сделать так, чтобы форма была прозрачной, но компоненты, находящиеся на ней, оставались видимыми.
Пишу Delphi 7.
Спасибо.

[Stilet]

Так сказать на фоне

Меняй для нее родителя:

windows.SetParent(form1.handle,0)

или создавай с указанием родителя - рабстола:

form1:=TForm1.CreateParented(GetDesktopWindow);

[qpokyc]

К примеру выше надо исчо добавить чтоб работало:

  var
    WLS: Cardinal;
  begin
    WLS := GetWindowLong(Handle, GWL_STYLE);
    WLS := WLS OR WS_CHILD;
    SetWindowLong(Handle, GWL-STYLE, WLS);
  end;

Иначе всеравно будет наверху.

Однако, 0, DesktopWindow и то что нужно - не одно и тоже! 0 - хендл предка по умолчанию, а у DesktopWindow есть контрол, на который и нужно помещать окно в примере (у него есть название, но я не помню).

Вобщем, идеально работает только пример где ставил таймер на 3 сек и переводил курсор на рабочий стол. Обработчик таймера такой:

begin
  Windows.SetParent(Handle, Windows.WindowFromPoint(Mouse.CursorPos));
  Timer1.Enabled := False;
end;

В остальных случаях либо вообще не катит, либо работает, но криво (особенно Windows.SetParent(Handle, GetDesktopWindow))
Хэндлы были такими (но далеко не факт, что они везде такие):
Предок по умолчанию = 0
DesktopWindow = 65556;
То что нужно = 65664;

Конечно, кривым способом можно вычислить последний хэндл, но было бы интересно узнать - как это правильно сделать, если кто знает...

[Stilet]

Согласен. Вот поправлю для ХР:

procedure TForm1.Timer1Timer(Sender: TObject);  var h:hwnd;
begin
   h:=FindWindow('Progman','Program Manager');
  h:=FindWindowEx(h,0,'SHELLDLL_DefView','');
  h:=FindWindowEx(h,0,'SysListView32','FolderView');
windows.SetParent(Handle,h);
end;

[DomiNick]

Согласен. Вот поправлю для ХР:

Прекрасно работает, но для чего оно в таймере-то? Достаточно одного раза при создании формы...
И кстати что такое 'Progman'..?

Мне как-то нужно было получить рабочий стол и я смог раскопать такую функцию...

Function GetDesktopHandle: THandle;
Begin
Result:=FindWindow('ProgMan', Nil);
Result:=GetWindow(Result, GW_CHILD);
Result:=GetWindow(Result, GW_CHILD);
End;

И в ней такой же 'Progman'.....


Ну и ещё такой глупый вопрос не совсем в тему: в чём разица между "HDC" и "HWND"..?

[Darte]

Спасибо, вроде разобрался..
А что насчёт прозрачной формы и непрозрачных компонентов?

[qpokyc]

Прекрасно работает, но для чего оно в таймере-то? Достаточно одного раза при создании формы...

Эээ.. это была индейская хитрость - я ловил хэндл по курсору, а для этого надо было успеть отвести его куда надо))
Stilet исправил этот деффект. Таймер там нипричем).

Экспериментировал с оконными стилями, но желаемого эффекта так и не получил (( вероятно здесь надо обращаться к GDI.

[Stilet]

но для чего оно в таймере-то?

Упс... хы... Мусор.

Stilet исправил этот деффект. Таймер там нипричем).

Дык это бубен для шамана, дабы Ктулху не расслаблялся

в чём разица между "HDC" и "HWND"..?

HWND - Хендл на обьект окна (стили, размеры, параметры...)
HDC - хендл на контекст окна, т.е. на его пиксели чтоб рисовать - портал для отрисовки