ableiten von klassen und überschreiben von ereignissen

[kiar]

hi chris

Delphi-Quellcode:

procedure TMelder.myClick(Sender:TObject);
begin

     if fZustand = Zout then
        begin 
          FZustand:= Zon;
          canvas.pen.color:=Clred
        end else
          begin
            FZustand:= Zout;
            canvas.pen.color:=clyellow;
          end;
        
end;

im Create weise ich dem onclick das myclick-ereignis zu.

raik