Dropdown...

Jo, jeg prøver lige at arbejde med det, jeg svarer i morgen, vil jeg tro...

på forhånd tak :) stoons

Mener du i en combobox???

Altså at man vælger en adresse(mail eller url) i en combobox, og derefter kører en shellExecute på den valgte streng via en knap?

Hvis det er ovenstående du vil have, så skal du bare tilføje de relevante adresser til din combobox, som normalt, og når du trykker på knappen, skal du konvertere strengen fra din combobox til en NULL-terminated string, og indsætte den i din ShellExecute. Konverteringen sker med parameteren PChar...

Håber dette er hjælp nok... Ellers skriv en kommentar.
Mvh
Retep

det skal nok passe det du siger retep - men jeg er totalt nybegynder i delphi.. men det du siger er det nogenlunde ligsom i et script.? men det kunne være dejligt med et eks. når man ikke er så kendt i programmeringssproget ! jeg venter med at give point til stoons har svaret ...

Her har du lidt kode... Tilføj en combobox og en knap.


Comboboxens enter-event, kan f.eks. se sådan ud:

procedure TForm1.ComboBox1Enter(Sender: TObject);
begin
  Combobox1.Clear;
  Combobox1.Items.Add('www.dr.dk');
  Combobox1.Items.Add('www.eksperten.dk');
  Combobox1.Items.Add('www.microsoft.dk');
end;

Og knappens on-click:

procedure TForm1.Button1Click(Sender: TObject);
begin
shellexecute(getdesktopWindow,'open', PChar(Combobox1.text), nil,nil, 0);
end;

Håber dette hjælper dig på vej. Husk at tilføje ShellAPI til din Uses.
Mvh
Retep

mange mange mange tusinde tak retep for dit svar og din skabelon det er nemlig sådan noget jeg brug for som nybegynder så jeg rækker dig hermed min points... Jeg er nemlig ved at lave en link central man kan downloade på min side http://www.mainframe.subnet.dk/ og derfor havde jeg brug for sådan en combobox - har du ellers nogle gode ideer man kunne bruge til et program (LinkCentral) så må du meget gerne komme med nogle forslag...

Arg! Fuck!
Nå pyt, jeg lavede heller ikke en pr*t i går!

retep >> jeg kan ikke helt få det til at virke..? fejlen den kommer i Comboboxen ved ....Combobox1Enter(send... det er ved Enter fejlen kommer. ? jeg prøvede at erstatte det med Change og så virkede det hvis man slettede noget når formen kører og hvis man så skriver noget i comboboxen når formen kører så kommer det hele dobbelt og så går det hele i ged - hvad kan der være galt ?

Huh? Jeg lavede det i går, og da virkede det fint. Jeg laver det lige igen :-)

Du skal ikke lave det i change-eventen, men stadig i enter-eventen.

Sæt evt. Comboboxens style til csDropDownList(i objektInspektoren), så brugeren kun kan vælge i mellem de URl's der er i listen, og ikke selv skrive tekst. Du kan evt også ændre din button on-click til at checke, at det ikke er en tom streng.

Begin
  if combobox1.text <> '' then
    shellExecute.......
End;

Jeg kan ikke helt se hvor fejlen/problemet er, da det virker fint her...

Mvh
Retep

Ups, if combobox1.text <> ' ' then...

Hmmm tror at eksperten åd den ene abostrof :-)

mit det virker altså ikke med det der 'Enter' kan det have noget at gøre med at jeg bruger Delphi 5 ? men ellers er der jo ikke noget et gøre ved det :(

Kan du ikke skrive din mailadresse, så kan jeg sende det til dig...?

Btw. dit hjemmeside virker overhovedet ikke i Netscape... :-/

retep >> her er min e-mail adresse madsen@overload.dk ... jeg havde nok på fornæmmelsen af at min hjemmeside ikke virkede i netscape da jeg bruger en del scripts o.s.v. men "what ever" mig og mine venner bruger kun explorer så det er sådan set lige meget.. bruger du da kun netscape eller har du tjekket den med explorer ? men tak for hjælpen.. !

Sendt!

Jeg bruger normalt Netscape, men når noget ikke virker kigger jeg lige efter i IE :-)

Ved ikke hvorfor jeg ikke skifter, men nu har jeg vennet mig til Netscape, såå...

mange mange tak for mailen og hjælpen retep.. jeg tror jeg måske kan det for det til at virke nu !