Показать сообщение отдельно
  #2  
Старый 15.05.2012, 16:47
Pyro Pyro вне форума
Так проходящий
 
Регистрация: 18.07.2011
Сообщения: 805
Версия Delphi: 7Lite
Репутация: 6063
По умолчанию

простейший вариант при помощи combobox:
запоминает при нажатии enter, сохраняет в файл при закрытии формы
PHP код:
function history: string;
begin
  result 
:= ExtractFilePath(Application.ExeName) + 'history.txt';
end;


procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  
Shift: TShiftState);
begin
  
if Key=VK_RETURN then
    ComboBox1
.Items.Add(ComboBox1.Text);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ComboBox1
.Items.SaveToFile(history);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  
if FileExists(history) then
    ComboBox1
.Items.LoadFromFile(history);
end; 
Ответить с цитированием