Hallo Leutz,
folgende Prozedur soll einen Timer die
Scroll-Led blinken lassen:
Delphi-Quellcode:
procedure TAuszahlbuch.ledscrollTimer(Sender: TObject);
begin
if keys[VK_SCROLL] = 0 then
begin GetKeyboardState(keys); keys[VK_SCROLL] := 1; SetKeyboardState(keys); end;
if keys[VK_SCROLL] = 1 then
begin GetKeyboardState(keys); keys[VK_SCROLL] :=0; SetKeyboardState(keys); end;
end;
Sie blinkt aber nicht, habe auch keinen Error.
Timer wird vorher auf enabled true gesetzt, Intervall steht auf 3000.
Bei menen Versuchen ergab unter WinMe kommt ein kurzel aufleuchten
unter XP passiert garnix.
Bei 3 Sekunden sollte doch nun wirklich was zu sehen sein, oder
mache ich was grundsätzliches falsch?
Greetz
Privateer3000