Avatar billede fun22 Nybegynder
02. december 2002 - 19:23 Der er 18 kommentarer og
1 løsning

outline i delphi

Hej

Hvordan gør jeg sådan at når jeg klikker på en linie i et outline komponent så åbner den den hjemmeside som der er adrasseret i navnet. Jeg har en webbrowser på formen.
Avatar billede stone Forsker
02. december 2002 - 20:54 #1
private
procedure FindAddress;

{$R *.DFM}

procedure TForm1.FindAddress;
var
  Flags: OLEVariant;

begin
  Flags := 0;
  WebBrowser1.Navigate(WideString(Urls.Text), Flags, Flags, Flags, Flags);
end;

procedure TForm1.URLsKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin                        //URLS kan være dit Outline Component
Findaddress;
end;
Avatar billede fun22 Nybegynder
02. december 2002 - 21:14 #2
Af en eller anden grund går den ind på msn og søger på noget meget mærkeligt. Jeg kan ikke kopir det
Avatar billede stone Forsker
02. december 2002 - 21:40 #3
går den ikke til den url adresse du har defineret i URLS?
Avatar billede fun22 Nybegynder
03. december 2002 - 07:59 #4
Avatar billede stone Forsker
03. december 2002 - 08:21 #5
forstår jeg ikke, koden kører fint hos mig.
Avatar billede fun22 Nybegynder
03. december 2002 - 08:23 #6
er det også den outline som er under 3.1 fanen som du bruger?
Avatar billede stone Forsker
03. december 2002 - 08:24 #7
prøv at kigge på den demo der følger med delphi5,
c:\programmer\borland\delphi5\demos\coolstuf
Avatar billede fun22 Nybegynder
03. december 2002 - 08:40 #8
der er da ikke noget med det at gøre... Er det næmmere med en almindelig listbox?? For hvis det er skal jeg bare bruge noget kode dertil, det skal gøre det samme som den ovenover.
Avatar billede stone Forsker
03. december 2002 - 13:04 #9
i mit eksempel er der brugt en almindelig Tlistbox fra fanen "standard" prøv med den så virker det.
Avatar billede fun22 Nybegynder
03. december 2002 - 14:15 #10
Den virker stadigvæk ikke... Har du ikke et eksempel som du kan sende??
Avatar billede stone Forsker
03. december 2002 - 18:34 #11
joda...smid din mail adr. eksemplet er lavet i Delphi5 Interprise
Avatar billede fun22 Nybegynder
03. december 2002 - 19:22 #12
har fundet ud af det... Jeg håber ikke at det var et eksempel som du havde lavet bare til det her spørgsmål. Du kan få de 15 points hvis du kan svare på hvorfor jeg altid får en list index out of bound når jeg lukker programmet.
Jeg bruger denne kode:
urls.items[urls.ItemIndex]
Avatar billede stone Forsker
03. december 2002 - 19:54 #13
vis lige din kode - så kigger jeg på det.
Avatar billede stone Forsker
03. december 2002 - 20:10 #14
hvis du ikke ønsker at offenliggøre din kode så send den til

steenlarsen@it.dk
Avatar billede stone Forsker
03. december 2002 - 22:43 #15
prøv:

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  History.Free;
end;
Avatar billede fun22 Nybegynder
04. december 2002 - 14:29 #16
den kommer med en fejl... record, object or class type required
Avatar billede stone Forsker
04. december 2002 - 15:37 #17
ka ik lige greje problemet jeg kan se du bruger nogle 3'part componenter
Avatar billede fun22 Nybegynder
05. december 2002 - 14:14 #18
ja, jeg bruger flatstyle, og toolbar2000
Avatar billede fun22 Nybegynder
08. december 2002 - 20:14 #19
Du gjorde et forsøg og det er fint nok, så du får pointsne. Kan du ikke se om du kan hjælpe mig med nogle af de andre spørgsmål om delphi jeg har???

http://www.eksperten.dk/spm/290260
http://www.eksperten.dk/spm/290576
http://www.eksperten.dk/spm/292290
http://www.eksperten.dk/spm/292520
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester