Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Privateer3000,
13. Aug 2007
Ja Danke,
aber das hilft mir offen gesagt garnicht weiter :-(
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Privateer3000,
13. Aug 2007
Hallo Leutz,
folgende Prozedur soll einen Timer die
Scroll-Led blinken lassen:
procedure TAuszahlbuch.ledscrollTimer(Sender: TObject);
begin
if keys = 0 then
begin GetKeyboardState(keys); keys := 1; SetKeyboardState(keys); end;
if keys = 1 then
begin GetKeyboardState(keys); keys :=0; SetKeyboardState(keys); end;
end;