Каак создать 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;

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

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

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

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

← →
Ученик (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;

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