Text einblenden

[mr-unbekannt]

mich würde interressieren, wie du das mit der taste macht, die den text einbleded?!?

bye

[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

[Ajin]

Bei mir die alte Text Information nicht gelöscht und der neue Text "darübergelegt"

D.h. ihr ruft die Funktion auf mit dem Text "Hallo" und (selbst wenn das Programm beendet wurde) ein 2. mal mit "Test"

Das erste "Hallo" merkt ich mein System und beide Texte sind ineinander geschrieben.

Ist das ein Vista-Effekt oder normal?