Un comportamiento más útil para ComboBox

[ecfisa]

Hola jhonalone.

Creo que podrías hacer:

Código Delphi [-]
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  if (GetKeyState(VK_DOWN)<0)or(GetKeyState(VK_UP)<0)
      or(GetKeyState(VK_RETURN) < 0) then Exit;
  ...
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if (GetKeyState(VK_DOWN)<0)or(GetKeyState(VK_UP)<0)
      or(GetKeyState(VK_RETURN) < 0) then Exit;
  ...
end;
procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
   Mgs: TMsg;
begin
   if Key = VK_RETURN then
   begin
     // Aqui llamá a tu procedimiento o poné el código a ejecutar
     PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE); // quitar el molesto beep 
     ShowMessage('Intro fué presionada');
   end;
end;

Saludos.