Показать сообщение отдельно
  #3  
Старый 07.09.2008, 15:52
Кодер Кодер вне форума
Активный
 
Регистрация: 25.02.2008
Сообщения: 395
Репутация: -599
По умолчанию

Код:
USES ShellAPi;
...
procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = #13 then
             ShellExecute(Form1.Handle, 
                            nil, 
                            combobox1.text, 
                            nil, 
                            nil, 
                            SW_SHOWNORMAL); 
end;
Ответить с цитированием