Text einblenden

[Flippo]

Also der Code hier blendet einen Text 2Sek lang ein:

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;

Das mit der Taste mach ich per Hotkey...falls du da Problem oder Fragen hast kannst du ja nochmal schreiben