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

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

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

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

Arnold © (2004-12-07 22:31:00)
Как создать TButton с возможностью загрузки рисунков

Ученик (2004-12-10 23:56:00) [1]
Если без наследников, то примерно так :-)

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;

GuAV (2004-12-09 00:16:00) [2]
Так запуздырить в тэг :)

GuAV (2004-12-08 23:36:00) [3]
Ну дык в тэг запуздырить :)

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

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

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

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

Алхимик (2004-12-08 00:17:00) [6]
TButton - член иерархии компонентов VCL. Непосредственно "в него" ничего не загрузишь, разве что посредством вмешательства в генофонд :)

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

Arnold (2004-12-08 00:14:00) [7]
Кнопка (TButton) с различными изображениями в зависимости от событий (нормального состояния, нахождения курсора мыши (MouseOver), нажатого состояния (Pressed) и т.д.)

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

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

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

Arnold (2004-12-08 00:02:00) [9]
Так яб с удовольствием этим воспользовался, но преподаватель требует чтоб через класс TButton

Алхимик (2004-12-07 23:45:00) [10]
А почему не воспользоваться TBitBtn?

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

Arnold (2004-12-07 23:24:00) [11]
в сам компонент
ну в как TBitBtn есть свойсто Glyph

Алхимик (2004-12-07 22:53:00) [12]
Загрузки куда?

Наверх

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