Текущий архив: 2004.12.05;
Скачать: CL | DM;

Вниз

присвоить 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;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.06 c