1 Topic by adiziktdy (edited by adiziktdy 2019-02-22 11:01:02)

  • Registered: 2018-02-02
  • Posts: 139

Topic: [Решено] Имитация кнопки объектом Image

Так как нельзя менять дизайн Button (заливка, цвет текста, форма), воспользовалась свойством объекта Image  OnClick для действия и заменила его картинкой.

https://b.radikal.ru/b27/1902/d8/898a53163e6f.jpg

Как имитировать нажатие такой "кнопки"? Была мысль - менять расположение Image на форме на несколько пикселей, но что-то не выходит.

Form1.Image.Left:=56;
Form1.Image.Top:=40;

после щелчка по нему

Form1.Image.Left:=59;
Form1.Image.Top:=43;
Yana
  • Registered: 2014-02-14
  • Posts: 10,294

Re: [Решено] Имитация кнопки объектом Image

Попробуйте так

procedure Form1_Image1_OnMouseUp (Sender: TObject; MouseLeft, MouseRight, MouseMiddle: boolean; Shift, Alt, Ctrl: boolean; X, Y: Integer);
begin
    Form1.Image1.Left:=Form1.Image1.Left-2;
    Form1.Image1.Top:=Form1.Image1.Top-2;
end;

procedure Form1_Image1_OnMouseDown (Sender: TObject; MouseLeft, MouseRight, MouseMiddle: boolean; Shift, Alt, Ctrl: boolean; X, Y: Integer);
begin
    Form1.Image1.Left:=Form1.Image1.Left+2;
    Form1.Image1.Top:=Form1.Image1.Top+2;
end;
Dmitry.
  • Registered: 2018-02-02
  • Posts: 139

Re: [Решено] Имитация кнопки объектом Image

DriveSoft wrote:

Попробуйте так

Спасибо! Работает smile

Yana