Можно ли использовать иконку как картинку на кнопке TSpeedButton?

Delphi , Компоненты и Классы , Кнопки

Code:

uses ShellApi;

         

        procedure TForm1.FormShow(Sender:  TObject);

        var

        Icon:  TIcon;

        begin

        Icon :=  TIcon.Create;

        Icon.Handle := ExtractIcon(0, 'C:\WINDOWS\NOTEPAD.EXE', 1);

        SpeedButton1.Glyph.Width := Icon.Width;

        SpeedButton1.Glyph.Height := Icon.Height;

        SpeedButton1.Glyph.Canvas.Draw(0, 0, Icon);

        Icon.Free;

        end;

Да, вы можете использовать иконку как изображение на TSpeedButton.

Вот пример кода:

uses ShellApi;

procedure TForm1.FormShow(Sender: TObject);
var
  Icon: TIcon;
begin
  Icon := TIcon.Create;
  Icon.Handle := ExtractIcon(0, 'C:\WINDOWS\NOTEPAD.EXE', 1);
  SpeedButton1.Glyph.Icon.Assign(Icon);
  Icon.Free;
end;

В этом коде:

Мы создаем объект TIcon и присваиваем его Handle свойство.
Затем мы устанавливаем Glyph свойство TSpeedButton на иконку. Метод Assign используется для передачи иконки в кнопку.
Пожалуйста, обратите внимание, что также можно использовать метод 'Glyph.LoadFromResource', если ваша иконка хранится как ресурс в вашем проекте.

В статье описывается пример использования иконки как картинки на кнопке TSpeedButton в Delphi, при этом иконка загружается из файла с помощью функции ExtractIcon.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Кнопки ::

Время компиляции файла: 2024-12-22 20:14:06
2025-01-29 01:52:09/0.0026750564575195/0