point an event to a function ! 1

[masterDicanio]

Hi

i want to create an TCombobox in runtime and make onChange event to call a function !

it seems i can not use : comboboxname.onChange := a function , it is wierd (cause onChange is a TNotifyEvent ! then how i can do this ?

 

[KempCGDR]

newComboBox.onChange := functionName


The function must have exactly the same parameters as the event handlers delphi generates for you.

 

[masterDicanio]

kemp , this is the code and the error :

procedure itChanged(Sender: TObject);
begin
showmessage('yes');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
mycbox : TCombobox;
begin
mycbox := tcombobox.Create(self);
mycbox.Parent := form1 ;
mycbox.OnChange := itChanged;
end;

[Error] Unit1.pas(38): Incompatible types: 'method pointer and regular procedure'

 

[whosrdaddy]

you need an object method

change your procedure like this :

procedure TForm1.itChanged(Sender: TObject);
begin
showmessage('yes');
end;

add this line in the public or private section of the
TForm1 class (in the interface part of the unit) :

procedure itChanged(Sender: TObject);

then it will work


--------------------------------------
What You See Is What You Get