Компонент Image в роли кнопки.

[Небесный]

Народ подскажите, как можно задействовать имейдж в роли кнопки, вот с такими нужными мне функциями:

1 случай -
а)при наведении на имейдж - делать выпуклость на картинке (можно как-то и по другому, но не сменой курсора).
б) при нажатии на имейдж - дабы выпуклость менялась на вогнутость (не знаю как правильно это назвать - короче картинка вжималась).
(Рылся по этим свойствам в компоненте Image и не нашел, подозреваю, что таких свойств нету у него, вот и спрашиваю у вас коллеги).

2 случай -
а) при одиночном клике, картинка делалась выделяемой, каким угодно способом (прямо при написании вопроса - уже сам себе ответил - например сделать картинку черно-белой или каким другим выделяемым способом)
б) при двойном клике открывать другую формочку.
(И вот в чем вопрос, а вопрос об одиночном и двойном клике - и разный выполняемых процедур(функций), как бы OnClick - дает вопрос только на пункт 2.а, а вот пункт 2.б остается нерешенным).

Заранее благодарен всем за помощь и подсказки. Возможно я для всего этого не удачный компонент Image выбрал, просто понравился тем, что можно картинку влепить какую угодно. Хотя можно было и BitBth или SpeedButton. Короче жду ваших советов.

[Человек_Борща]

Вы не в ту сторону копаете. Image вовсе не кнопка. И для неё придётся сосмому писать 3 состояния и события и много чего ещё.

Смотрите класс кнопки Tbutton, там все уже есть.
Наследуйте и при изменении состояния рисуйте на кнопке соответствующую картинку состояния.

[Небесный]

Тогда еще один вопрос, как организовать одиночный и двойной клик?
Ибо если использовать сразу два метода одиночного клика и двойного, одиночный клик перехватывает всегда двойной, считая, что это одиночный клик.

[Johnson]

Ну, вообще-то, у TButton имеется два разных события на одиночный и двойной щелчки:
OnClick;
OnDblClick;

А ещё бы я посоветовал Вам найти библиотеку компонентов Raize Components Pack с серийником.
Там можно многое что сделать визуально красивым...

[Небесный]

Сообщение от Johnson

Ну, вообще-то, у TButton имеется два разных события на одиночный и двойной щелчки:
OnClick;
OnDblClick;

Я вполне с вами согласен, да вот когда используешь одновременно события OnClick и OnDblClick, первый всегда перехватывает второй, даже если это и двойной клик. Но с этим я уже разобрался - пришлось немного извратиться.

procedure TForm1.Image1Click(Sender: TObject);
var
  Msg: TMsg;
  TargetTime: Longint;
begin
  TargetTime := GetTickCount + GetDoubleClickTime;
  while GetTickCount < TargetTime do
    if PeekMessage(Msg, 0, WM_LBUTTONDBLCLK, WM_LBUTTONDBLCLK, PM_NOREMOVE)
      then Exit;
  ShowMessage('Одиничный клик'); { На этом месте что-то делаем по одному клику.  Мессага в роли теста}
end;

procedure TForm1.Image1DblClick(Sender: TObject);
begin
  ShowMessage('Двойной клик'); { На этом месте что-то делаем по двойному клику.  Мессага в роли теста}
end;

Может кто-то поможет адаптировать данный код, дабы небыло так дико. )))

[mihali4]

Физическая форма
http://www.programmersforum.ru/showthread.php?t=17054