StringGrid & parented ComboBox - OnExit event doesn't fire


2007-03-03 01:45:19 AM
delphi70
Hi all!
I've created a StringGrid with a parented ComboBox but the OnExit
event won't fire...wonder why? Someone knows the soultion? Thanks, in
advance!
Vanyo
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1 := TComboBox.CreateParented(StringGrid1.Handle);
ComboBox1.OnExit := ComboBox1Exit;
ComboBox1.Style := csDropDownList;
end;
...
procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
with Sender as TCombobox do
begin
Hide;
if Itemindex>= 0 then with StringGrid1 do Cells[Col, Row] :=
Items[ItemIndex];
end;
end;