Hent windows standard ikoner. anger har modtaget 15 point for dette tip Fra : anger Vist : 2358 gange Dato : 02-02-01 14:49

Her er en måde at hente alle windows standard ikoner, lige som "New, Open, Save...." Opret et imagelist på din form, og derefter skriv følgende : Uses ShellApi; procedure GetSystemImageList(ImageList : TImageList); Var res : Integer; shf : TSHFILEINFO; begin res:=SHGetFileInfo('', 0, shf, SizeOf(shf), SHGFI_SYSICONINDEX OR SHGFI_SMALLICON ); ImageList.handle:=Res; ImageList.ShareImages:=True; end; procedure TForm1.Button1Click(Sender: TObject); begin GetSystemImageList(Imagelist1); end;

Bedømmelse Fra : gandalf Dato : 06-02-01 14:42

Bedømmelse Fra : gandalf Dato : 06-02-01 14:42

Bedømmelse Fra : ironman Dato : 28-03-01 12:55

Bedømmelse Fra : Flozzy Dato : 01-09-01 05:15

Bedømmelse Fra : crissi2 Dato : 24-05-02 20:19

Du har følgende muligheder

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip. Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.