VPF::ComboBox - Форум программистов

kind_programmer

Дата 28.5.2007, 19:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.5.2007

Репутация: нет
Всего: нет

Как реализовывается функция, чтоб ранние введенные URl сохронялись в ComboBox.

Создать нечто воде тектового файла и все нагромождать туда, а при загрузке проги, вновь, туда загружать?

Что-то я себе слабо представляю....

maniaks1

Дата 28.5.2007, 19:23 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 16.12.2006

Репутация: нет
Всего: нет

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
   if FileExists('History.ini') then
  ComboBox1.Items.LoadFromFile('History.ini');
end;

Код


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

Код


Var s:String;

........

s:=ComboBox1.Text;
  if PageControl1.PageCount<>0 then
  begin
  if s<>'' then
    begin
      for i:=0 to ComboBox1.Items.Count-1 do
      if ComboBox1.Items.Strings[i]=s then
      ComboBox1.Items.Delete(i);
      ComboBox1.Items.Insert(0,s);
    end;
  TWebBrowser(PageControl1.ActivePage.Controls[0]).Navigate(s);
  end

kind_programmer

Дата 28.5.2007, 20:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.5.2007

Репутация: нет
Всего: нет

спасибо, все на вид так просто! Теперь во всем этом нужно разобраться до мельчайшей детали, эх...трудная будет ночка! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »