(Anfänger) Auf Ereignis reagieren

[Paul Lindmayr]

Hallo Kollegen

Schreibe mir gerade eine Art ComboBox - also ein TEdit, TListBox und einen TSpeedButton auf einem TWinControl. Die grafische Größenanpassung klappt auch schon.

Leider gelingt es mir nicht, auf Events von TEdit, TListBox, TSpeedButton zu reagieren - würde mich über jeden Tip freuen.

Paul Lindmayr

[Mario.Noack]

Hallo Paul,<p>
schreibe Dir eine Procedure, die dem Syntax der Delphi-Ereignisse folgt. Beispiel für OnClick:<p>
procedure TDeineKomp.MyClick(Sender: TObject);<br>
BEGIN..END;<p>
Weise diese Procedure dann zu: DeineKomp.OnClick := MyClick;<p>
Fertig.<p>
Grüße Mario Noac

[Paul Lindmayr]

Hallo Mario

klingt ja einfach, aber verstehe ich nicht.

ein Bsp.
type TMyWinControl = class(TWinControl)
private
FButton : TSpeedButton;
public
constructor Create(AOwner : TComponent); override;
end;

constructor TMyWinControl.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
FButton := TSpeedButton.Create(self);
FButton.Parent := self;
end;

wo reagiere ich hier auf einen Button-Click?
gehört die Zuweisung in den constructor?

mfG Pau

[Mario.Noack]

constructor TMyWinControl.Create(AOwner : TComponent);<br>
begin<br>
inherited Create(AOwner);<br>
FButton := TSpeedButton.Create(self);<br>
FButton.Parent := self;<br>
FButton.OnClick := MyClick;<br>
end;<p>
procedure TMyWinControl.MyClick(Sender: TObject);<BR>
BEGIN..END;<br&gt

[Paul Lindmayr]

Besten Dank, Mario - so klappt's :-)

Pau