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