Back
...

========
Subject: Re: D1.<Enter> как <Tab>
From: Sergey Turin <Sergey.Turin@p18.f11.n5024.z2.fidonet.org>
--------
Привет Sergey!

? Quoting message from Sergey Bondarenko to All
? [22 Feb 97 at 10:16]

SB> несколькими DBEdit-ами, ну в-общем как по <Tab>, вместо закрытия формы.

SB> Пробовал и SelectNext(...) и Perform(WM_NEXTDLGCTL...) на OnKeyPress и
SB> формы и отдельных DBEdit-ах - все равно ни хрена не работает. Срабатывает
SB> только
В каждом компоненте с которого ты собираешься уходить по Enter
определяешь обработчик события OnKeyDown ( ну или пишешь общий обработчик)
begin
if Key = VK_RETURN then
Perform(WM_DialogKey,VK_Tab,0);
end

С уважением,
Сергей.

P.S. Может и чего напутал в писал по памяти.

========
Subject: D1.<Enter> как <Tab>
From: Gennady Deev <Gennady.Deev@p22.f16.n5025.z2.fidonet.org>
--------
Мое почтение , Sergey!

Суб Фев 22 1997 10:16, Sergey Bondarenko писал All:

SB> Здратуте All!

SB> Либо я чего-то не понял, либо одно из двух:

SB> Решил как-то я, пользуясь FAQами, книгами, иногда извилинами,
SB> сделать в проге так, чтобы по <Enter>у в форме осуществлялся
SB> переход между несколькими DBEdit-ами, ну в-общем как по <Tab>,
SB> вместо закрытия формы.

SB> Пробовал и SelectNext(...) и Perform(WM_NEXTDLGCTL...) на
SB> OnKeyPress и формы и отдельных DBEdit-ах - все равно ни хрена не
SB> работает. Срабатывает только при первом переходе, а потом -
SB> нетути.

вот кусок из моего обpаботчика, все OK. Способ взят из FAQa.

procedure TForm2.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 Then
Begin
SelectNext(Sender as tWinControl, True, True );
Key := #0;
end;
end;

23.01.99 20:00:14