Rückgabewert von TSpeedButton.Glyph wenn undefiniert? Nil?

[Hawkeye219]

Hallo,

wenn du das Bild nicht aus einer ImageList holst, sondern direkt in SpeedButton.Glyph ablegst, kannst du auch so umschalten:

Delphi-Quellcode:

procedure TForm1.SpeedButtonClick(Sender: TObject);
begin
  if (SpeedButton.Margin < 0) then
    SpeedButton.Margin := SpeedButton.Width
  else
    SpeedButton.Margin := -1;
end;

Gruß Hawkeye