unit uMain;
{$mode objfpc}{$H+}
interface
uses
Forms, Controls, Buttons;
type
TForm1 = class(TForm)
BitBtn: TBitBtn;
ImageList: TImageList;
procedure BitBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
alternativeImage: Boolean;
end;
var
Form1: TForm1;
implementation
procedure TForm1.BitBtnClick(Sender: TObject);
var
btn: TBitBtn absolute Sender;
begin
if (ImageList.Count < 2) or not Sender.InheritsFrom(TBitBtn) then
Exit;
case alternativeImage of
True: btn.ImageIndex := 0;
False: btn.ImageIndex := 1;
end;
alternativeImage := not alternativeImage;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
BitBtnClick(BitBtn);
end;
{$R *.lfm}
end.