Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Загружать изображение при наведении и кликании мышью

pro_xaoc © (2010-05-18 11:02:00)
Всем привет! Вот у меня вопрос. Как можно загружать изображения на кнопку при наведении и кликании мышью (причем при наведении одно изображение, а при кликании другое), но эти картинки должны находится в самой проге. Пробовал ImageList, но не знаю как оттуда их выгружать.

Плохиш (2010-05-18 21:22:00) [1]
Во, ещё в одной психушке неделю назад программированием лечить начали :-))

Anatoly Podgoretsky (2010-05-18 21:19:00) [2]
> Плохиш (18.05.2010 20:28:09) [9]

Ты не умничай, ты код давай.

pro_xaoc (2010-05-18 21:11:00) [3]
Омлет. О все работает =)) спасибо большое )), хорошо что есть на форуме такие знающие люди как вы, ато есть тут некоторые ... лан не будем об этом, ещё раз низкий от меня поклон!

Омлет (2010-05-18 20:57:00) [4]
ImageList1.GetBitmap(0, SpeedButton1.Glyph);

pro_xaoc (2010-05-18 20:41:00) [5]
Хех, много на ся не бери, если честно, я начал неделю назад, и достиг хороших успехов, так что не надо мне тут говорить так! Если ты такой умный, почему тогда не привел ни одного кода??? Языком чесать все умеют!

Плохиш (2010-05-18 20:28:00) [6]
А в справку посмотреть мозгов или желания не хватает?
Зачем оно тебе это, программирование?

pro_xaoc (2010-05-18 20:16:00) [7]
=))))) ну я же говорил что новичок =)) просто на имиджлисте два раза кликнул и там было написано имидж и внизу ещё место для картинок, вот я потом подумал что это его свойство =)))

Плохиш (2010-05-18 20:07:00) [8]

> SpeedButton1.Glyph:=ImageList1.Images(0);
>

Интересно, и в какой версии у TImageList появилось свойство Images?

pro_xaoc (2010-05-18 19:51:00) [9]
мне нужно лишь узнать способ загрузки изображения, а там уже понятно же будет ...

Плохиш (2010-05-18 19:49:00) [10]

> pro_xaoc © (18.05.10 19:46) [4]

> procedure TForm1.SpeedButton1MouseDown

Т.е. "при наведении" уже не интересует?

pro_xaoc (2010-05-18 19:46:00) [11]
Плохиш, ты сам посмотрел на эту статью? мне нужен лишь маленький код ... даже фрагмент кода, а если точно то в вопросе задано: как можно загрузить битмап картинку на спидбаттон при наведении мышью. Я делал так:

procedure TForm1.SpeedButton1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SpeedButton1.Glyph:=ImageList1.Images(0);
end;

и так: SpeedButton1.Glyph:=ImageList1.Images.0; и ещё куча способов, но не могу найти, вот и прошу гуру этого сайта помощи.

Плохиш (2010-05-18 19:16:00) [12]
Нифигасе, уже код с подробными комментариями не устраивает 8-O
Подкатило время зачётов...

pro_xaoc (2010-05-18 18:55:00) [13]
Омлет, спасибо конечно =))) но я новичок =)) и я не до конца понял эту статью =)), можно как то попроще? просто там было много лишнего что мне и не нужно ...

Омлет (2010-05-18 13:47:00) [14]
http://www.delphisources.ru/pages/faq/base/increase_possibility_of_buttons.html

Наверх

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