Bilder in exe integrieren

[Nuclear-Ping]

Für das erste Problem kA ... bin ich grad zu müde

Aber hier:

Zitat von mathis.h:

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  bild:TBitMap;
begin
  bild := TBitMap.Create;
  bild.LoadFromResourceName(HInstance,'BILD1');
  SpeedButton1.Glyph := bild;
end;

Mach das lieber so:

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  bild:TBitMap;
begin
  bild := TBitMap.Create;
  try
    bild.LoadFromResourceName(HInstance,'BILD1');
    SpeedButton1.Glyph.Assign (bild);
    // oder SpeedButton1.Glyph.Picture.Assign (bild); ... kA genau
  finally
    FreeAndNil (bild);
  end;
end;

Weil sonst riskierst du Memory Leaks in deiner Anwendung, weil du "bild" wieder freigeben solltest, wenn du es nicht mehr brauchst. Und wenn du in deiner Variante oben bild freigegeben hättest, wäre auch das Bild vom Button verschwunden.