Нажатие кнопок

[SeregaIRK]

Привет всем программерам !
Народ такой вопрос - как сделать так чтобы при событии OnKeyDown или
OnKeyPress на buttonе происходил "эффект нажатия" как при нажатии на него мышью ?
Заранее благодарю !

[puporev]

Например так:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then Button1.Click;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='12345';
end;

[SeregaIRK]

Да не то пальто ! Как выполнить процедуру нажатия на кнопку я знаю !
Мне нужно именно чтоб кнопка опустилась и поднялось как при обычном нажатии на неё мышку - типа "эффект нажатия" !

[puporev]

Тогда так:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var x,y:integer;
begin
if key=#32 then
begin
//клик мыши
SetCursorPos(Button1.Left+10,Button1.Top+10);
Mouse_Event(MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, X, Y,0,0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTUP, X, Y,0,0);
end;
end;

[russian-stalker]

Ну тогда уж

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var x,y:integer;
mouse:tpoint;
begin
if key=#32 then
begin
getcursorpos(mouse);
//клик мыши
SetCursorPos(Button1.Left+10,Button1.Top+10);
Mouse_Event(MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, X, Y,0,0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTUP, X, Y,0,0);
SetCursorPos(mouse.X, mouse.Y);
end;
end;

[russian-stalker]

ЧТобы мышка отбрасывалась на прежднюю позицию

[puporev]

Согласен, писал быстро, до конца не додумал.
Кстати X и Y нужно какие-нибудь значения прсвоить, о то Ворнинги будут на нервы действовать.

[SeregaIRK]

Я так понимаю Х и У здесь служат координатами курсора мышки во время нажатия ?

[SeregaIRK]

Спасибо парни !

[SeregaIRK]

Парни а можно программно создать ещё один курсор и зделать его допустим невидимым ?