把的BS_TEXT换成BS_BITMAP后，怎样引入位图?

Question

//把的BS_TEXT换成BS_BITMAP后，怎样引入位图?// Create the Encrypt button
  hEncrypt := CreateWindow(
    'Button',
    'Encrypt',
    WS_VISIBLE or WS_CHILD or BS_PUSHLIKE or BS_TEXT,
    5,5,65,24,Handle,0,hInst,nil);

Answer 1

SendMessage(Button.Handle, BM_SetImage, 0, Bitmap.Handle);

Answer 2

555,这的确是个好的思路,但我该怎样得到Button的Handle呢？能更详细点吗？

Answer 3

hEncrypt := CreateWindow(
    'Button',
    'Encrypt',
    WS_VISIBLE or WS_CHILD or BS_PUSHLIKE or BS_TEXT,
    5,5,65,24,Handle,0,hInst,nil);hEncrypt就是Handle阿！
faint。

Answer 4

还是Kingron(单身走我路……) 大哥厉害，佩服，整理一下。hEncrypt := CreateWindow(
  'Button',
  'Encrypt',
  WS_VISIBLE or WS_CHILD or BS_PUSHLIKE or BS_BITMAP,
  5,5,65,24,Handle,0,hInst,nil);
  SendMessage(hEncrypt, BM_SetImage, 0, Image1.Picture.Bitmap.Handle);

Answer 5

SendMessage(hEncrypt, 
  BM_SETIMAGE,
  0,
  LoadImage(hInst,'C:\My Documents\1.bmp',IMAGE_BITMAP,65,24,LR_LOADFROMFILE));