Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Компоненты";
Текущий архив: 2005.10.09;
Скачать: [xml.tar.bz2];

Вниз

Каак создать 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.012 c
4-1123407155
Sphinx
2005-08-07 13:32
2005.10.09
Код создания окна не работает в dll


2-1125496160
Гость22
2005-08-31 17:49
2005.10.09
Как проверить, доступна ли сетевая папка?


1-1126866998
Lazarius
2005-09-16 14:36
2005.10.09
Простой отчет. Как???


1-1127047828
MBoris
2005-09-18 16:50
2005.10.09
Word Application


3-1125368125
Карелин Артем
2005-08-30 06:15
2005.10.09
Есть ли события в MS SQL? Если Да, то как использовать?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский