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.