фокус на кнопке+нажать ее Enter^ом

← →
Windows1 (2005-10-06 13:48) [0]

как на апи по клавише Enter нажать на кнопку (procedure)
типа ButtonClick(self);
пока делаю в окне обработку клавиши Enter.
Работает если фокус на окне,а если на кнопке
-неработает (т.е после Setfocus(handleButton)).

А надо чтоб выделеная фокусом работала(

← →
clickmaker © (2005-10-06 13:55) [1]

FormKeyDown()
if (Key = VK_RETURN) then Button.Click;
у формы KeyPreview поставь true

← →
-=S..S=- (2005-10-06 19:04) [2]

> clickmaker © (06.10.05 13:55) [1]

Вроде вопрос прозвучал на апи :)

> фокус на кнопке+нажать ее Enter^ом

Ищешь нужную тебе кнопку h := FindWindowEx(FindWindow("Form", "TForm")...)
Потом делаешь SendMessage(h, (не помню точно какое там сообшение на нажатие левой кнопки мыши ) ... )
потом тоже самое токо для отпускания ...

вот и всё .. а кнопка сама фокус получит после всего этого ...
ENJOY :)

← →
Windows1 (2005-10-14 09:57) [3]

не неполучается фокус уже поставил на кнопке
(их две там),чтоб видно было какая кнопка в фокусе.
Но ведь при Enter форма уже не принимает сообщение WM_Char=enter !!!

Надо типа Button1.OnEnter=procedureClick1;

← →
ANB © (2005-10-14 10:55) [4]

Во первых неправильно делаешь обработку. Но в твоем случае - пошли самому окну WM_CHAR VK_ENTER

← →
ssk © (2005-10-15 17:32) [5]

SendMessage(Кнопка.Handle, BM_CLICK, 0, 0);

← →
wp2 (2005-10-15 22:27) [6]

Можно вообще нажать кнопку Enter
keybd_event(13, $45, KEYEVENTF_EXTENDEDKEY or 0, 0);
keybd_event(13, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0)

Если я конечно не ошибся...

← →
Windows1 (2005-10-17 15:38) [7]

вот код как я делаю

function WndFunc(aWnd, Msg:......
begin
case Msg of
WM_CHAR: /// OnEnter
Begin
if Wparam=13 then ButtonClk;
End;

procedure ButtonClk;
begin
......
halt;
end;

main....
Button:=CreateWindow("Button","OK"....
SetFocus(Button); // если это убрать,то OnEnter (ButtonClk); работает

при фокусе на кнопку + нажать интер - непашет

> Windows1 (17.10.05 15:38) [7]

> case Msg of
> WM_CHAR: /// OnEnter

WM_GETDLGCODE:

--
Regards, LVT.

фокус на кнопке+нажать ее Enter^ом Найти похожие ветки