Edit.text 5 mal Blinken lassen

[Sir Rufo]

Zitat von DeddyH:

Da bin ich mal gespannt, wieviel Tasten Du drücken kannst, bevor Dir der Speicher ausgeht.

Ein gutes Auto braucht viel Sprit und ein gutes Programm braucht viel Speicher.

Ich würde dieses Problem generell lösen.

Es gibt da also etwas, was innerhalb eines bestimmten Zeit-Intervalls x mal wiederholt werden soll.

Delphi-Quellcode:

TTimedActionItem = class
  property Interval : cardinal;
  property Count : cardinal;
  property OnExecute : TNotifyEvent;
  procedure Trigger;
end;

TTimedActions = class
  property ActionCount : Integer;
  property Actions[index:Integer] : TTimedActionItem;
  procedure AddAction( Action : TTimedActionItem );
  procedure Trigger;
end;

procedure TTimedActions.Trigger;
var
  LIdx : integer;
begin
  for LIdx := 0 to ActionCount - 1 do
    Actions[LIdx].Trigger;
end;

Einen Timer an TTimedActions.Trigger verdrahtet und die ActionItems feuern dann, wenn denen danach ist.