Thema: Delphi Icon aus DLL laden

Einzelnen Beitrag anzeigen

Benutzerbild von Pseudemys Nelsoni
Pseudemys Nelsoni

Registriert seit: 24. Dez 2002
Ort: Hamburg-Harburg
3.551 Beiträge
 
#1

Icon aus DLL laden

  Alt 23. Aug 2003, 23:31
hallo, sorry ist dann auch mein letzter thread für heute (bis 0 uhr ).
alsoich habe eine dll erstellt in dem alle icons sind(z.G sind sie auch transparent)...aber ich bekomme diese nicht geladen. Ich habe es dem code aus der code library abgeschaut, bloss das ich statt JPG icon genomme habe. Also das ganze sah dann so aus:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  h :HINST;
  r :TResourceStream;
  ic :TIcon;
  i :integer;
begin
  h := LoadLibrary('icons.dll');
  if h <> 0 then
  begin
    r := TResourceStream.Create(h, 'connect', 'ICON');
    ic := TIcon.Create;
      try
        ic.LoadFromStream(r);
        Image1.Picture.Icon.Assign(ic);
      finally
        ic.Free;
        r.Free;
      end;
  end;
  FreeLibrary(h);
end;
wieos geht das nun nicht? bei einem klick auf den button passiert gar nichts
Mario
MSN: cyanide@ccode.de
  Mit Zitat antworten Zitat