Re: TZF - Tab - Enter - and Edit Components

For that the TAB key I use this on my principal form.



procedure TFornr.AppMessage(var Msg: TMsg; var Handled: Boolean);
var
  actual: TWinControl;
begin
 if Msg.message = WM_KEYDOWN then
   if Msg.wParam = VK_RETURN then begin
  actual := Screen.ActiveControl;
      if (actual is TCDBEdit) or (actual is TEdit) or
         .............
         (actual is TTzGrid)  or (actual is TDBComboBox) then Msg.wParam :=
VK_TAB;
   end;
end;

procedure TForm.FormCreate(Sender: TObject);
begin
   Application.OnMessage := AppMessage;
.........
end;

--^----------------------------------------------------------------
This email was sent to: [email protected]

EASY UNSUBSCRIBE click here: http://topica.com/u/?clvXPN.a5kvff.Z2NsZHQt
Or send an email to: [email protected]

TOPICA - Start your own email discussion group. FREE!
http://www.topica.com/partner/tag02/create/index2.html
--^----------------------------------------------------------------