[Delphi] 2 Belki przy Form.ParentWindow

0

Witam, problem jest nastepujacy:

W jakiejstam procedurze :

form1.ParentWindow := GetDesktopWindow;

i w drugiej procedurze kod na usuniecie (1) belki z paska zadan:

Procedure TForm1.DelFromTask;
var
  ex:integer;
begin
   Ex:=GetWindowLong(Application.Handle, GWL_EXSTYLE);
   SetWindowLong(Application.Handle,GWL_EXSTYLE,
   Ex or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
end;

Po uruchomieniu aplikacji, tworza sie 2 belki na pasku zadan, jedna zostaje usunieta przez powyzsza funkcje natomiast druga zostaje. Problemu nie ma gdy nie ustawie parentu na pulpit. Co z tym fantem zrobic pozdrawiam

0

Spróbuj wykonać drugi kod jeszcze raz, tylko zamiast Application.Handle podaj uchwyt aktualnego okna - może pomoże, ale tylko może - strzelam ;)

0

OMG ale wtopa <wstydnis> powtorzylem kod dla Form1.Handle; i dziala heh... dzieki brodny <beer> taka wtopa no nic rzeczy najlatwiejsze sa najtrudniejsze :PP

temat do zamkniecia ;)

1 użytkowników online, w tym zalogowanych: 0, gości: 1