Форум: "Основная";
Текущий архив: 2004.12.05;
Скачать: [xml.tar.bz2];
Внизприсвоить ImageIndex к пункту меню во время выполнения программы. Найти похожие ветки
← →
Intr (2004-11-17 23:29) [0]Почемуто прямое присвоение номера иконки из imagelist"а ни приводит к желаемому результату... хотя если до компиляции присвоить - все намана. Как Менять иконку динамически ??? Подскажите плизаа
← →
Игорь Шевченко © (2004-11-18 00:48) [1]
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ImgList, StdCtrls;
type
TfMain = class(TForm)
ImageList: TImageList;
MainMenu: TMainMenu;
File1: TMenuItem;
miTest: TMenuItem;
Exit1: TMenuItem;
Button1: TButton;
procedure Exit1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
end;
var
fMain: TfMain;
implementation
{$R *.dfm}
procedure TfMain.Exit1Click(Sender: TObject);
begin
Close;
end;
procedure TfMain.Button1Click(Sender: TObject);
begin
miTest.ImageIndex := 1 - miTest.ImageIndex;
end;
end.
На форме imageList с двумя картинками - все прекрасно меняется по нажатию на кнопку.
← →
Intr (2004-11-18 01:26) [2]Игорь Шевченко, спасиба за примерчик. Я просто ступил малость... (не будем вдаваться в подробности)))))
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.12.05;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.043 c