Objekt.onclick wie geht daS?

[alcaeus]

Probiers mal so:

Delphi-Quellcode:

type
  Tkarte = class(TImage)
  constructor erzeugen;
  procedure ziehen;
  private
  public
  end;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormActivate(Sender: TObject);
    procedure SatzOnClick(Sender: TObject); //<- Das hier ist wichtig
  private
    //Karte:Tkarte;
  public
    satzmenge:integer;
  end;

SatzOnClick ist eine Ereignisbehandlungsroutine, die du dir selbst erstellt hast. Natürlich musst du weiter unten im Source irgendwo schreiben

Delphi-Quellcode:

procedure TForm1.SatzOnClick(Sender: TObject);
begin
//...
end;

Damit hast du dir eine ganz normale Behandlungsroutine erstellt, die du dann dem OnClick-Ereignis deines TImage zuweisen kannst.

[add]Normalerweise ist hier pushen erst nach 24 Stunden erlaubt/erwünscht/gern gesehen[/add]