Procedure bei Mausklick ausführen

[DeddyH]

Wie sieht denn Dein Code aus? Ich habe mal schnell ein Formular mit 2 Shapes und einem Timer (Enabled initial auf false) gebaut, das Projektil bewegt sich.

Delphi-Quellcode:

procedure TfrmTest.shpPanzerMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
    tmrSchuss.Enabled := true;
end;

procedure TfrmTest.tmrSchussTimer(Sender: TObject);
begin
  shpProjektil.Left := shpProjektil.Left + 1;
end;