BorlandTalk.com

Guest

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;