Während Programm läuft

[Finki]

Delphi-Quellcode:

... 

public
    procedure MeinEigenesOnClick(Sender: TObject);
 end;

var
  Form3: TForm3;

{ TForm3 }
procedure TForm3.MeinEigenesOnClick(Sender: TObject);
var
   meinControl: TWinControl;
begin
 if (Sender is TWinControl) then
      meinControl := (Sender as TWinControl)
   else
      Exit;

   meinControl.Left := meinControl.Left - 2;
end;