Изменение Bitmap во время выполнения

Тема в разделе "Delphi", создана пользователем WinHack, 2 дек 2016.

  1. WinHack
    Самый простой способ изменить точечный рисунок во время выполнения состоит в том, чтобы использовать метод Assign. Имейте ввиду, что когда свойство является объектом, это связывает память с ним.

    Память, связанная со старым значением должна быть освобождена, а новая память должна быть назначена.

    Код:
    procedure TForm1.Button1Click(Sender: TObject);
    var
      Image: TBitmap;
    begin
      Image:=TBitmap.Create;
      if N < ImageList1.Count then ImageList1.GetBitmap(N, Image);
      BitBtn1.Glyph.Assign(Image);
      Inc(N);
      if N > ImageList1.Count then N:= 0;
      Image.Free;
    end;