OSD Erscheinungsort...

[Knotti2005]

Ich habe beim suchen in der DP folgenden Code gefudnen mit dem man ein OSD erzeugen kann welches nach 2 Sekunden wieder verschwindet..

Delphi-Quellcode:

procedure WriteText(TransText: string);
var
  MyHand: HWND;
  MyDc: HDC;
  MyCanvas: TCanvas;
  Start : Longint;
begin
MyHand := GetDesktopWindow;
MyDc := GetWindowDC(MyHand);
MyCanvas := TCanvas.Create;
MyCanvas.Handle := MyDC;
BeginPath(MyCanvas.Handle);
MyCanvas.Font.Color := clred;
MyCanvas.Font.Name := 'Arial';
MyCanvas.Font.Size := 15;
SetBkMode(MyCanvas.Handle,TRANSPARENT);
EndPath(MyCanvas.Handle);
MyCanvas.TextOut(20, 20, TransText); //Hier die Positionsdaten mit X und Y, wo der Text beginnen soll
Start := GetTickCount;
repeat
Application.ProcessMessages
until (GetTickCount - Start > 2000);
InvalidateRect(0, nil, true);
end;

Nun zu meiner Frage wie kann ich erreichen das der Text immer Rechts Unten über der Taskbar erscheint...

MyCanvas.TextOut(20, 20, TransText); //Hier die Positionsdaten mit X und Y, wo der Text beginnen soll