Wackeleffekt

[Popov]

Ich hab mal für ein Programm eine Wackelfunktion eingebaut, um den Nutzer zu erinnern, dass ich eine Eingabe erwarte. Vielleicht kannst du es abwandeln und für eine Komponente nutzen

Delphi-Quellcode:

procedure ShakeBabyShake(Form: TForm);
var
  iLeft, iTop, iCount: Integer;
const
  wMax = 20;
begin
  with Form do begin
    iLeft := Left;
    iTop := Top;
    for iCount := 0 to 300 do begin
      Left := iLeft + (Random(wMax) - (wMax div 2));
      Top := iTop + (Random(wMax) - (wMax div 2));
      Left := iLeft;
      Top := iTop;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShakeBabyShake(Self);
end;