Events

[kehj]

Hi,
ich hab 'n kleines Problem mit den Delphi-Events.
Ich muß auf das onChange-Event eines TCanvas einer PaintBox zugreifen. Dummerweise hab ich keine Ahnung, wie ich jetzt Aktionen bei Eintreten des Ereignisses implementieren kann. B.z.w. wo ich das Ereignis finde, so daß ich da was reinschreiben kann.
Nochmal deutlich: Ich will, daß beim Neuzeichnen das Canvas-Objektes einer PaintBox eine Prozedur ausführen. Da ich aber nicht mit dem Objektinspektor auf die Canvas-Ereignisse zugreifen kann, bin ich ein wenig aufgeschmissen.
Ich weiß einfach nicht, wo ich im Quelltext was ändern muß, um meine Routine aufzurufen.
Und da die Delphihilfe da ziemlich schwammig ist, wie ich finde, muß ich jetzt leider hier fragen.
Also, kann mir jemand helfen?

[Falk Prüfer]

Hi,

Vorschlag:

type<br>
TForm1 = class(TForm)<br>
PaintBox1: TPaintBox;<br>
procedure FormCreate(Sender: TObject);<br>
private<br>
{ Private-Deklarationen }<br>
procedure MyPaintOnCanvasChange(Sender: TObject);<br>
public<br>
{ Public-Deklarationen }<br>
end;<br>

var<br>
Form1: TForm1;<br>

implementation<br>

{$R *.DFM}<br>

procedure TForm1.MyPaintOnCanvasChange(Sender: TObject);<br>
begin<br>
{What ever I do}<br>
end;<br>

procedure TForm1.FormCreate(Sender: TObject);<br>
begin<br>
PaintBox1.Canvas.OnChange := MyPaintOnCanvasChange;<br>
end;<br>

end.<br>

Gruss Fal