ďťż

Ładny brzuch

Chodzi o to, żeby w Edit1 wpisać adres, a potem po kliknięciu na przycisk strona otwierała się w przeglądarce.

W Edit1 wpisuje adres strony np. www.onet.pl
Pod przyciskiem mam kod:
procedure TForm1.Button4Click(Sender: TObject); var Nazwa : string; begin Nazwa:=Edit1.Text; ShellExecute(0,'open',pchar(Nazwa), '','',SW_SHOWNORMAL); end;

Gdy klikam nic się nie dzieję. Z góry dzięki za pomoc.
Użytkownik Malganis edytował ten post 24 październik 2007, 17:38

hmm nie wiem co jest, ale u mnie ten kod działa bez problemów. Sproboj moze wpisac nie www.onet.pl tylko http://www.onet.pl

Też nie działa :/
Natomiast:
ShellExecute(0,'open',pchar('www.onet.pl'), '','',SW_SHOWNORMAL);
działa bez problemu, ale mi chodzi o to żeby adres podawać w edit1
Użytkownik Malganis edytował ten post 24 październik 2007, 19:52
OMG!!!! Podstawy!!ShellExecute(Handle,'open',pchar(Edit1.text), '','',SW_SHOWNORMAL);

//@ ali
Faktycznie nie działało - myślę, że winę za to odpowiada wartość 0 jako pierwszy parametr. U mnie także kod nie działał, ale jak się okazało po ustawieniu faktycznego handle jest juz ok.
Użytkownik PcSA edytował ten post 25 październik 2007, 11:41


OMG!!!! Podstawy!!ShellExecute(0,'open',pchar(Edit1.text), '','',SW_SHOWNORMAL);
Tak tylko że jeżeli mu to nie działa:
var Nazwa : string; begin Nazwa:=Edit1.Text; ShellExecute(0,'open',pchar(Nazwa), '','',SW_SHOWNORMAL);
(swoją drogą nie wiem jakim cudem to może nie działać...), to mu bez kopiowania tekstu też nie zadziała ;). No ale imo jak działa bezpośrednio to i ze skopiowaniem musi działać...

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •