Как сделать имитацию нажатия в delphi?

[ilsen]

Наношу на форму компонент image. в него помещяю рисунок кнопки. Как сделать чтоб при клике на image он реагировал также как и кнопка?

[_-Re@l-_]

Событие Image.OnMouseDown

procedure TForm1.Image1MouseDown(Sender:TObject)
begin
        ShowMessage('Hello,World!');
end;

Оно?

[ilsen]

procedure TForm1.Image1MouseDown(Sender:TObje ct)
begin
ShowMessage('Hello,World!');
end;

не особо понял что ты хотел спросить, видимо я не так объяснил что хочу)))
Ок, мне нужно чтоб при нажатии на image он проваливался так же как и button когда по нему кликаешь, как реализовать именно этот эффект "проваливания"?

[MyLastHit]

Какое наффиг проваливание??? Тебе же дали общую идею OnMouseDown. Рисуешь "Проваливающуюся кнопку" в фотошопе. Кидаешь на форму 2 эти картинки(норм и сфотошоленую) одна на другую, picture1(норм)-наверху. Потом в обработчике MouseDown пишешь
Picture1.hide;
А в OnMouseUp пишешь
Picture1.show;
Да и вообще для этих целей есть целые компоненты! Как вариант: http://www.delphiexpert.ru/view_download.php?id=110 только он откликается не на событие нажатия, а на событие наведения мышки. Но переделать труда вообще никакого не составит.
PS: вопросы по делфи, даже от начинающих, вот тут следовало бы публиковать: http://programmersforum.ru/forumdisplay.php?f=2, тк в данную ветку, в которую ты топик кинул, в основном Паскаль, Пролог и С постят...