Einfach Timer mit nem Intervall von 10 (ms) auf die Form und ab gehts:
Delphi-Quellcode:
procedure WriteText(TransText: string);
var
MyHand: HWND;
MyDc: HDC;
MyCanvas: TCanvas;
begin
MyHand := GetDesktopWindow;
MyDc := GetWindowDC(MyHand);
MyCanvas := TCanvas.Create;
MyCanvas.Handle := MyDC;
BeginPath(MyCanvas.Handle);
MyCanvas.Font.Color := clRed;
MyCanvas.Font.Name := 'Courier New';
MyCanvas.Font.Size := 30;
SetBkMode(MyCanvas.Handle,TRANSPARENT);
EndPath(MyCanvas.Handle);
MyCanvas.TextOut(100, 100, TransText); //Hier die Positionsdaten mit X und Y, wo der Text beginnen soll
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
WriteText('http://delphipraxis.net');
end;
Nur bleibt jetzt z.B. auf der Form noch Text "kleben". Müsste man mal sehen wie man das wegbekommt...
MfG Florian
