| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

присвоить ImageIndex к пункту меню во время выполнения программы. [D7, WinXP]

Intr ©   (2004-11-17 23:29:00) 

Почемуто прямое присвоение номера иконки из imagelist'а ни приводит к желаемому результату... хотя если до компиляции присвоить - все намана. Как Менять иконку динамически ??? Подскажите плизаа

---

Intr   (2004-11-18 01:26:00) [1]

Игорь Шевченко, спасиба за примерчик. Я просто ступил малость... (не будем вдаваться в подробности)))))

---

Игорь Шевченко   (2004-11-18 00:48:00) [2]

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 с двумя картинками - все прекрасно меняется по нажатию на кнопку.

---

Наверх