Изменение рисунка кнопки BitBtn

[bang]

Нужно следующее: при наведении курсора на кнопку BitBtn рисунок назначеный в свойстве Glyph изменялся на другой, и если кнопку не нажали, и мышку увели с кнопки, то рисунок обратно изменялся на 1й
как это сделать... ничего не могу придумать(

[Yurk@]

получать координаты курсора и сравнивать их с координатами кнопки ... если совпадут - менять рисунок, обратное действие - аналогично

[Stilet]

Попробуй описать события входа мышки и выхода так:

procedure TForm1.BitBtn1MouseEnter(Sender: TObject);
begin
 ImageList1.GetBitmap(1,BitBtn1.Glyph); 

end;

procedure TForm1.BitBtn1MouseLeave(Sender: TObject);
begin
 ImageList1.GetBitmap(0,BitBtn1.Glyph); 
end;

Где ImageList1 содержит два разных изображения.

P.S. Чуть поправился.

[bang]

Ребят если не затруднит! Можно по точнее всё рассписать для чайника так сказать, я не так давно начал програмировать по этому сногого еще не понимаю...

[Stilet]

Кидаешь на форму ImageList. В него загружаеш два разных изображения, настраиваешь играясь его свойствами.
Далее описываешь события для кнопки: OnMouseEnter и OnMouseLeave так как я показываю.

[bang]

А разве в сасой BitBtn нельзя в событии прописать на наведение мыши!?

[Stilet]

А разве в сасой BitBtn нельзя в событии прописать на наведение мыши!?

Так я тебе именно это и описал: Код для событий наведения и выведения мышки для BitBTN.

[bang]

Окей попробую, завтра отпишусь что получилось!

[alextrof94]

Загрузи в кнопку глиф соотношения 4х1 (100х25пикселей к примеру), При наведении кнопка будет выделяться по стандарту рамкой, а при нажатии менять глиф на 3й (rect(50,0,75,25)), если кнопку отключишь, то сменится на 2й, правда не знаю в каком случае тут 4й глиф применяется. А если поставить альфаконтролы, то можно будет грузить в глифы прозрачные картинки PNG.

[bang]

Вот такой код, но не работает если ставить на 1 форме на 2 кнопки... Как зделать для 2х кнопок?
код:
unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons;

type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn1MouseLeave(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1MouseLeave(Sender: TObject);
begin
bitbtn1.Glyph.LoadFromFile('C:\User s\Los\Pictures\Иконки\бмп\BMP\Disab led\48x48\Bulb Idea.bmp');
end;

procedure TForm1.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
bitbtn1.Glyph.LoadFromFile('C:\User s\Los\Pictures\Иконки\бмп\BMP\Disab led\48x48\Approve.bmp');
end;

end.