Wybór strony internetowej ListBox

Wybór strony internetowej ListBox
  • Rejestracja: dni
  • Ostatnio: dni
0

Witam, potrzebuję napisać program i mam pewien problem.

Mam na formie ListBox i Button. Klikając na przycisk program ma uruchomić domyślną przeglądarkę i stronę internetową, którą wybieramy z listbox.

kod otwierający przeglądarke z wpisaną ręcznie stroną internetową:

Kopiuj
ShellExecute(self.WindowHandle,'open','www.google.pl',nil,nil, SW_SHOWNORMAL);

Jak przerobić ten kod??

Wiem ,że są to podstawy jednak dopiero zaczynam z delphi ;]

Proszę o pomoc :)

madmike
  • Rejestracja: dni
  • Ostatnio: dni
0

Ponieważ jako początkujący zapewne chcesz się czegoś nauczyć, więc gotowca ci nie dam, ale:

  • Rejestracja: dni
  • Ostatnio: dni
0

Dzięki na pewno się przyda ;]

olesio
  • Rejestracja: dni
  • Ostatnio: dni
  • Lokalizacja: Szczecin
  • Postów: 4191
0

Marcin: podpowiem tylko, że ListBox ma wlasności Items oraz ItemIndex. Teraz już sobie powinieneś sam poradzić.

pelsta
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 819
0
Kopiuj
procedure TForm1.Button1Click(Sender:TObject);
begin
  with ListBox1 do if ItemIndex>-1 then ShellExecute(self.WindowHandle,'open',PChar(Items[ItemIndex]),nil,nil,SW_SHOWNORMAL);
end;
olesio
  • Rejestracja: dni
  • Ostatnio: dni
  • Lokalizacja: Szczecin
  • Postów: 4191
0

A ja też się czegoś ciekawego przy okazji nauczyłem. Mianowicie tego, że po with ... do instrukcje z if nie powdują konieczności użycia
dodatkowo begin, jeżeli mamy tylko jedną istrukcję poza warunkową. Czyli taki kod jak poniżej również będzie prawidłowo skompilowany

Kopiuj
  with ProgressBar1 do
    if Max = 10 then
    Min := 1;
madmike
  • Rejestracja: dni
  • Ostatnio: dni
0

olesio, wybacz, ale troszkę nie rozumiem :(

Kopiuj
for x := 1 to 5 do
  if x > 3 then
    Caption := x;
Kopiuj
if x < 3 then 
  for y := 1 to 5 do
    if y < 3 then
      Caption := x;

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.