Enter as Tab in Dialogs

I am trying to make the Enter key act like the TAB key in dialogs. In forms
it seems to work but not a dialog. Pressing an alpha key runs the procedure
but not the enter or arrow keys.

I set Keypreview to true

procedure TPaymentsDlg.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   showmessage('key pressed');
   if Key=Chr(VK_Return) Then Begin
      Perform(wm_NextDlgCtl,0,0);
	    Key := #0;
   End;
end;

Any suggestions?

Thanks Garry


------------------------ Yahoo! Groups Sponsor ---------------------~-->
Free shipping on all inkjet cartridge & refill kit orders to US & Canada. Low prices up to 80% off. We have your brand: HP, Epson, Lexmark & more.
http://www.c1tracking.com/l.asp?cid=5510
http://us.click.yahoo.com/GHXcIA/n.WGAA/ySSFAA/i7folB/TM
---------------------------------------------------------------------~->

CodeCoffer - new Delphi code protection Tool!
http://www.delphicollection.com/public/CodeCoffer.htm
---------------------------------------------------------------
Unsubscribe:[email protected]
List owner:[email protected]
--------------------------------------------------------------- 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/