Форум: "WinAPI";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];
ВнизКак отловить нажатие Enter на EDIT Найти похожие ветки
← →
bug008 (2003-03-12 20:36) [0]Здравствуйте. Помогите плз в такой ситуации.
Есть однострочный edit. Необходимо отловит нажатие клавиши Enter по этому editу.
Спасибо.
← →
ferrik (2003-03-12 20:49) [1]Если я правильно понял надо обрабатывать OnKeyDown и смотреть когда key=13.
Вероятно, я не понял вопрос и жестоко ошибаюсь....
← →
ferrik (2003-03-12 20:50) [2]Удалено модератором
Примечание: Offtopic
← →
Songoku (2003-03-13 01:04) [3]var
dEdit: Pointer;
implementation
function EditProc(hWnd,Msg,wParam,lParam:Longint):Longint; stdcall;
begin
Result:=CallWindowProc(dEdit,hWnd,Msg,wParam,lParam);
case Msg of
WM_KEYUP: if wParam=13 then
begin
// ---++++ТВОЙ КОД++++---
halt;
end;
end;
end;
procedure Crae
var
hedit:hwnd;
begin
hEdit:=CreateWindowEx(WS_EX_CLIENTEDGE,"Edit",nil,ES_MULTILINE or ES_LEFT or WS_CHILD or WS_VISIBLE or ES_AUTOHSCROLL or ES_AUTOVSCROLL ,222,25,153,20,Handle,109,0,nil);
dEdit:=Pointer(GetWindowLong(hEdit,GWL_WNDPROC));
SetWindowLong(hEdit,GWL_WNDPROC,Longint(@EditProc));
end;
← →
Songoku (2003-03-13 01:06) [4]Помойму должно работать...
Если что пиши , всегда рад помочь
← →
bug008 (2003-03-13 07:19) [5]editу меня в ресурсе, но это не важно.
Я просто не хотел менять процедуру окна Editа и хуки не хотелось ставить... Хотел как-нибудь чере WM_COMMAND. Но похоже что нельзя.
← →
Songoku (2003-03-14 16:19) [6]bug008
паренб всё можно ... пришли мне иходник и я тебе даделаю!!!
или просто
dEdit:=Pointer(GetWindowLong(GetDlgItem({Hwnd},{101}),GWL_WNDPROC));
SetWindowLong(GetDlgItem({Hwnd},{101}),GWL_WNDPROC,Longint(@EditProc));
← →
Vitek (2003-03-15 00:37) [7]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
...чё хотел :)...
end;
end;
← →
VD601 (2003-03-15 21:08) [8]Можно поизваращеннее:
на ФормКейПресс (не забудь keypreview в true поставить):
begin
if (key = #13) and (ActiveControl = Edit1) then
bla-bla-bla
end;
← →
Songoku (2003-03-15 22:33) [9]VD601 & Vitek
ВЫ что не понимаете !?!?!
Он это использует в Console а не в VCL ...
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c