StringList

[nefakt]

Всем привет!
Мучаюсь таким вопросом, как можно передать номер выбранной строки из listBox в TStringList и открыть в браузере?
То есть например в ListBox название а в TStringList ссылка на сайт, нужно сделать так что бы при выборе название сайта из ListBox он передавал номер строки в TStringList в котором находится ссылка на сайт и открывал его в браузере.
Если просто в ListBox занести ссылки то как открывать в браузере я знаю что так

 ShellExecute(0, 'open', PWideChar(sListBox3.Items.Strings[sListBox3.ItemIndex]), nil, nil, SW_SHOW) ;

а мне нужно что бы он брал ссылку по номеру строки из ListBox и открывал в браузере.
Заранее спасибо.

[eval]

вам же говорили выбросить TStringList за ненадобностью

[nefakt]

Я говорил что не умел им пользоваться , а теперь когда разобрался то понял что удобнее с ним) , но т.к. я привык к ListBox`у я не знаю как сделать то что я написал в первом посте.

[ZuBy]

ShellExecute(0, 'open', PWideChar(<ВашStringList>.Strings[sListBox3.ItemIndex]), nil, nil, SW_SHOW) ;

[nefakt]

Спасибо помогло, а еще тогда один вопрос последний. Как можно таким же методом удалить. Например название выбрал нажал удалить и этаже строка удалилась в TStringList

[Аватар]

Можно. Способы
1. F1 TStringList и почитать какие у него есть методы
2. Поисковик, TStringList Delphi, первая же ссылка
http://www.delphibasics.ru/TStringList.php
и опять же почитать

Заодно и много чего интерсного можно узнать

[Serge_Bliznykov]

т.е. вы хелп принципиально не читаете, да?

Как можно таким же методом удалить.

ShellExecute(0, 'open', PWideChar(<ВашStringList>.Strings[sListBox3.ItemIndex]), nil, nil, SW_SHOW) ; 
<ВашStringList>.Delete(sListBox3.ItemIndex);
sListBox3.Items.Delete(sListBox3.ItemIndex);

[nefakt]

я читал и гуглил как удалить строку из StringList я знаю просто не знал как правильно объединить с ListBox, вернее не пробовал) спасибо за помощь.

[nefakt]

А еще вопрос не по теме конечно как можно сделать что бы при нажатии кнопки форма выдвигалась и по нажатии той же кнопки назад убиралась вот как тут на картинки заранее спасибо.

[ZuBy]

var
  Form6: TForm6;
  XWidth: integer = 205;
  IncX: integer = 0;

implementation

{$R *.dfm}

uses Unit7;

procedure TForm6.Button1Click(Sender: TObject);
begin
  Form7.Show;
  Form7.Width := 0;
  Form7.Left := Form6.Left + Form6.Width;
  Form7.Top := Form6.Top;

  Timer1.Enabled := true;
end;

procedure TForm6.Timer1Timer(Sender: TObject);
begin
  if IncX in [0 .. 205] then
  begin
    Inc(IncX);
    Form7.Width := IncX;
    // Application.ProcessMessages;
  end
  else
    Timer1.Enabled := false;
end;

Идея понятна?