Dynamische Position der unteren Taskbar

[EWeiss]

Zitat:

Zitat von hathor (Beitrag 1263110)

Delphi-Quellcode:

function TaskbarHandle: THandle;
begin
  Result := FindWindow('Shell_TrayWnd', nil);
end;

function TrayHandle: THandle;
begin
  Result := FindWindowEx(TaskbarHandle, 0, 'TrayNotifyWnd', nil);
end;

procedure TForm2.Button1Click(Sender: TObject);
var TR : TRECT;
begin
GetWindowRect(TrayHandle, TR);
Memo1.Lines.Add(' LEFT:   '+INTTOSTR(TR.Left));
Memo1.Lines.Add(' RIGHT:   '+INTTOSTR(TR.Right));
Memo1.Lines.Add(' TOP:    '+INTTOSTR(TR.Top));
Memo1.Lines.Add(' BOTTOM: '+INTTOSTR(TR.Bottom));
Memo1.Lines.Add(' HEIGHT: '+INTTOSTR(TR.Height));
Memo1.Lines.Add(' WIDTH:  '+INTTOSTR(TR.Width));
end;

Er will die Positionen wenn er die Tasbar verschiebt.
Dann mach ihm das auch noch fertig.
Das ist ja nur die hälfte. LOL

gruss

[TheGroudonx]

Dank euch funktioniert mein Programm jetzt noch besser :-D

Vielen Dank