Przycisk bmp

Dzień dobry wszystkim,

Chciałbym się dowiedzieć jak można podmieć button ewentualnie bitbutton na przycisk graficzny w .bmp?. Moje próby zrobienia tego wyglądają następująco

Witam,
Polecam użyć komponentu Image.
Wczytać do niego obrazek z buttonem, a potem wszystkie potrzebne rzeczy wykonywać w evencie ON CLICK.
Pozdrawiam,
WiedźMAC

Ok wszystko pięknie działa, teraz jak zrobić by wyglądało to tak, że jest on naciskany.

• Stwórz dwie bitmapy: jedna przedstawiająca przycisk naciśnięty, a druga przycisk zwolniony (możesz to zrobić online: wpisz w Google "button generator").
• Umieść te bitmapy w zasobach, albo w komponencie ImageList.
• Teraz w procedurze obsługi zdarzenia OnMouseDown wczytujesz do Image pierwszą bitmapę, a w OnMouseUp drugą.
• Oczywiście w OnClick wstawiasz kod, który ma być wywołany w momencie kliknięcia Twojego (udawanego) przycisku.

 procedure TForm1.Image2Click(Sender: TObject);
begin
if (Edit1.Text = 'ddddd') and (Edit2.Text = 'dddd123') then Form2.Showmodal
else MessageBox (handle, 'Podany login lub hasło jest nieprawidłowe', 'Logowanie', Mb_Ok + Mb_IconError);
end;

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
ImageList1.GetBitmap(1, Image2.Picture.Bitmap);
end;

procedure TForm1.Image2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
ImageList1.GetBitmap(0, Image2.Picture.Bitmap);
end;

Gdy kompiluje program nie widać tych przycisków które załadowałem.

Musisz odmalować kontrolkę

Image2.Repaint;

No ok tylko w którym miejscu mam wpisać ?

Rzeczywiście mogłem od razu napisać, ale myślałem że się domyślisz. Ty sam również mogłeś spróbować to wpisać (właściwie gdziekolwiek) i sprawdzić, czy coś się zmieni. A wpisać trzeba na końcu procedur obsługi zdarzeń OnMouseDown i OnMouseUp

Pytanie właśnie wynikało stąd, że wklejałem to i na początku procedury i na końcu procedury i nic.