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
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.
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.