Bitbtn Glyph Pfad

[eddy]

Hallo LoL,

ich nehme mal an, Du willst während der Laufzeit das Bild (Glyph) des BitBtn ändern.

Code:

procedure TFBP.sbDbgOnOffClick(Sender: TObject);
begin
  if sbDbgOnOff.Tag = 0 then begin
    sbDbgOnOff.Glyph.LoadFromResourceName(HINSTANCE,'TABELLEAUS');
    sbDbgOnOff.Tag := 1;
    dbgTego.Visible := true;
    dbgTego.SetFocus;
  end
  else begin
    sbDbgOnOff.Glyph.LoadFromResourceName(HINSTANCE,'TABELLE');
    sbDbgOnOff.Tag := 0;
    dbgTego.Visible := false;
  end;
end;

Quelle: Bilder während der Laufzeit ändern

mfg
eddy