Я устанавливаю на кнопку Пуск картинку но при наведении на неё мышью она опять становица прежней!
Вот мой код что тута нужно поменять?
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
BitBlt(DC, 0, 0, R.Right - R.Left, R.Bottom - R.Top, image1.Canvas.Handle, 0, 0, SRCCOPY);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
HW := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil);
GetWindowRect(HW, R);
DC := GetWindowDC(HW);
end;