Einzelnen Beitrag anzeigen

Benutzerbild von EWeiss
EWeiss

Registriert seit: 16. Okt 2010
6.272 Beiträge
 
Delphi 2010 Architect
 
#21

AW: Dynamische Position der unteren Taskbar

  Alt 21. Jun 2014, 14:17
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

Geändert von EWeiss (21. Jun 2014 um 14:19 Uhr)
  Mit Zitat antworten Zitat