Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.09;
Скачать: CL | DM;

Вниз

Каак создать TButton с возможностью загрузки рисунков?   Найти похожие ветки 

 
Arnold ©   (2004-12-07 22:31) [0]

Как создать TButton с возможностью загрузки рисунков


 
Алхимик ©   (2004-12-07 22:53) [1]

Загрузки куда?


 
Arnold ©   (2004-12-07 23:24) [2]

в сам компонент
ну в как TBitBtn  есть свойсто Glyph


 
Алхимик ©   (2004-12-07 23:45) [3]

А почему не воспользоваться TBitBtn?

Типа, как накачать колёса у телеги, чтоб были как у велосипеда?


 
Arnold ©   (2004-12-08 00:02) [4]

Так яб с удовольствием этим воспользовался, но преподаватель требует чтоб через класс TButton


 
Алхимик ©   (2004-12-08 00:11) [5]


> [4] Arnold ©   (08.12.04 00:02)

Давай ка ты задание полностью выдашь. А то телепатический модуль подсказывает, что тебе надо написать наследника TButton.


 
Arnold ©   (2004-12-08 00:14) [6]

Кнопка (TButton) с различными изображениями в зависимости от событий (нормального состояния, нахождения курсора мыши (MouseOver), нажатого состояния (Pressed) и т.д.)


 
Алхимик ©   (2004-12-08 00:17) [7]

TButton - член иерархии компонентов VCL. Непосредственно "в него" ничего не загрузишь, разве что посредством вмешательства в генофонд :)

Ключевое слово "TButton" в задании присутствует?


 
GuAV ©   (2004-12-08 02:15) [8]

Алхимик ©   (08.12.04 0:17) [7]
епосредственно "в него" ничего не загрузишь, разве что посредством вмешательства в генофонд :)

Да ну ?
Button1.WindowProc := CoolWindowProcThatHandlesMouseEnterLeaveAndPaintMessages;


 
Алхимик ©   (2004-12-08 09:20) [9]


> [8] GuAV ©   (08.12.04 02:15)
> Алхимик ©   (08.12.04 0:17) [7]
> епосредственно "в него" ничего не загрузишь, разве что посредством
> вмешательства в генофонд :)
> Да ну ?
> Button1.WindowProc := CoolWindowProcThatHandlesMouseEnterLeaveAndPaintMessages;

И что? По моему подмена оконной процедуры не эквивалентна понятию "загрузить чего то в...".


 
GuAV ©   (2004-12-08 23:36) [10]

Ну дык в тэг запуздырить :)


 
GuAV ©   (2004-12-09 00:16) [11]

Так запуздырить в тэг :)


 
Ученик   (2004-12-10 23:56) [12]

Если без наследников, то примерно так :-)

procedure TForm1.FormShow(Sender: TObject);
begin
 SetWindowLong(Button1.Handle, GWL_STYLE, GetWindowLong(Button1.Handle, GWL_STYLE) or BS_ICON);
 SendMessage(Button1.Handle, BM_SETIMAGE, IMAGE_ICON, Image1.Picture.Icon.Handle);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 SetWindowLong(Button1.Handle, GWL_STYLE, GetWindowLong(Button1.Handle, GWL_STYLE) or BS_BITMAP);
 SendMessage(Button1.Handle, BM_SETIMAGE, IMAGE_BITMAP, Image1.Picture.Bitmap.Handle);
end;



Страницы: 1 вся ветка

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

Наверх




Память: 0.49 MB
Время: 0.04 c
9-1117549211
new1
2005-05-31 18:20
2005.10.09
Динамическое освещение. Лайт Мэпы.


14-1126871669
Vlad Oshin
2005-09-16 15:54
2005.10.09
тоже Пятничная загадка


1-1127281655
___BBK
2005-09-21 09:47
2005.10.09
MainMenu


14-1126591201
REA
2005-09-13 10:00
2005.10.09
День программиста


6-1118907060
denisww
2005-06-16 11:31
2005.10.09
ntlm Delphi