![]() |
|
#1
|
||||
|
||||
![]() У меня вот такая проблема
Надо зделать так что бы при клике на LISTBOX-e открывался выбранная страница из списка Я знаю только один способ запуск веб страницы ShellExecute(form1.handle, 'iexplorer', 'Названия сайта', nil,nil, sw_restore); Помогите решить проблему ЗАРАНИЯ СПОСИБО ЗА ПОМОЩЬ |
#2
|
||||
|
||||
![]() Недавно обсуждалась похожая тема - http://www.delphisources.ru/forum/showthread.php?t=741. Посмотри, у тебя будет тот-же принцип.
А если в ListBox находятся адреса сайтов, то все будет еще проще Код:
ShellExecute( Handle, 'open', ListBox1.Items.Strings[ListBox1.ItemIndex], nil,nil, SW_SHOWNORMAL ); Последний раз редактировалось Decoding, 29.09.2006 в 01:57. |
#3
|
||||
|
||||
![]() 2 кодик вроде подходит но выдает ощибку
Может знаете от чего это |
#4
|
||||
|
||||
![]() Что за ошибка? Покажи, как делаешь... Проверь, адрес должен начинаться с www или http://
Последний раз редактировалось Decoding, 30.09.2006 в 02:39. |
#5
|
||||
|
||||
![]() shellapi
..... ..... procedure TForm1.ListBox1DblClick(Sender: TObject); begin ShellExecute(Form1.Handle, 'open', ListBox1.Items.Strings[ListBox1.ItemIndex], nil,nil, SW_SHOWNORMAL ); end; Но говорит что НЕСРАВНИМЫЙ ТИП "STRING" "PANSICHAR" Ощибка гдето в этом месте ShellExecute(Form1.Handle, 'open', ListBox1.Items.Strings[ListBox1.ItemIndex], nil,nil, SW_SHOWNORMAL ); |
#6
|
||||
|
||||
![]() У меня сработало вот так:
Код:
ShellExecute( Form1.Handle, 'open', PChar( ListBox1.Items.Strings[ListBox1.ItemIndex] ), nil, nil, SW_SHOWNORMAL ); |
#7
|
||||
|
||||
![]() Всё работает спосибо за помощь
|
#8
|
||||
|
||||
![]() Цитата:
Ну RTFM в конце-то концов, аж плакать хочется ![]() Извиняюсь за флуд. |