Einzelnen Beitrag anzeigen

BullsEye

Registriert seit: 8. Sep 2007
Ort: Werlte
872 Beiträge
 
Delphi 7 Personal
 
#6

Re: Laufschrift auf dem Desktop

  Alt 22. Okt 2008, 09:23
Zitat von nsamaster:
Mhh... Die Laufschrift soll nicht in der Taskleiste sein, sondern darüber. Da fällt mir noch ein, das man den Bereich der "Taskleiste", für andere Programm so ausdenen müsste, das meine Schrift nicht überdeckt wird. Geht das irgendwie?

Hiermit kannst du die Taskbarposition ermitteln. Nunja, das mit dem "dadrüber" ist sone Sache. Ich z.B. habe meine oben sprich da passt nichts drüber. Also ne kleine Abfrage basteln wo du guckst ob die oben oder unten sitzt und du passt da dann halt deine Position dran an

Delphi-Quellcode:
var
  H: HWnd;
  Rect: TRect;
begin
  H:= FindWindow('Shell_TrayWnd', nil);
  if H<>0 then
  begin
    GetWindowRect(H, Rect);
 
    Label1.Caption:= 'Left: ' + IntToStr(Rect.Left);
    Label2.Caption:= 'Right: ' + IntToStr(Rect.Right);
    Label3.Caption:= 'Top: ' + IntToStr(Rect.Top);
    Label4.Caption:= 'Bottom: ' + IntToStr(Rect.Bottom);
  end;
Zum Thema unsauber: Gut, ist nun nicht transparent, aber das solltest du denke ich auch einfach hinbekommen. Aber optisch sieht das ab und zu nicht sehr fein aus. Und manchmal verzerrt die Schrift wenn nen Fenster dahinter ist.
Vllt mal mit "Doublebuffered" arbeiten
  Mit Zitat antworten Zitat