BM_SETIMAGE

← →
tytus (2006-03-16 12:13) [0]

Добрый день всем. Помогите разобраться - как с помощью данного сообщения нарисовать на кнопке (TButton) картинку
(BitMap)?

← →
XaM © (2006-03-16 13:28) [1]

Bitmap:Hbitmap;

Bitmap:=LoadBitmap(Форма или 0,"картинка");
sendMessage(Кнопка,BM_SETIMAGE,0,Bitmap);

← →
tytus (2006-03-17 09:10) [2]

>[1]XaM
BM:HBITMAP;

BM:=LoadImage(HInstance,PChar(ExtractFilePath(Application.ExeName)+"Img1.bmp"),IMAGE_BITMAP,0,0,LR_LOADFROMFILE);//картинка грузится

SendMessage(Button2.Handle,BM_SETIMAGE,0,BM);//ничего не присходит

пытался изменить стиль кнопки:
SendMessage(Button2.Handle,BM_SETSTYLE,BS_BITMAP,0);
тоже ничего не происходит...

← →
XaM © (2006-03-17 12:59) [3]

Тот пример для чистого апи. В VCL в StdCtrls.pas для кнопки определены стандартные стили BS_DEFPUSHBUTTON или BS_PUSHBUTTON.

procedure TButton.SetButtonStyle(ADefault: Boolean);
const
BS_MASK = $000F;
var
Style: Word;
begin
if HandleAllocated then
begin
if ADefault then Style := BS_DEFPUSHBUTTON else Style := BS_PUSHBUTTON;
if GetWindowLong(Handle, GWL_STYLE) and BS_MASK <> Style then
SendMessage(Handle, BM_SETSTYLE, Style, 1);
end;
end;

← →
clickmaker © (2006-03-17 13:27) [4]

> tytus (16.03.06 12:13)

А смысл? Если все равно пользуешь VCL, то BitBtn, SpeedButton

← →
XaM © (2006-03-17 13:40) [5]

Да и я об этом

← →
tytus (2006-03-17 14:54) [6]

Ну это понятно, а как все таки нарисовать битмап на кнопке?

На вкладке "Дополнительно" есть SpeedButton

BM_SETIMAGE Найти похожие ветки