Thanks :-)
========================================================
Luke Pascoe Delphi Programmer
enSynergy Consulting LTD
[EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590
Level 4, 10-12 Federal St, Auckland, New Zealand
PO Box 32521, Devonport, Auckland 1330, New Zealand
================== I.H.T.F.P. ==========================
> -----Original Message-----
> From: Marshall, Paul [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, 13 June 2001 4:29 p.m.
> To: Multiple recipients of list delphi
> Subject: RE: [DUG]: I don't recall if I already asked this but...
>
>
> Luke,
>
> Here's a component I've used for this:
>
> type
> TTabEdit = class(TEdit)
> private
> FAcceptTabs:Boolean;
> procedure WMGetDlgCode(var message: TMessage); message
> WM_GETDLGCODE;
> public
> property AcceptTabs : Boolean read FAcceptTabs write FAcceptTabs;
> end; { TTabEdit }
>
> procedure TTabEdit.WMGetDlgCode(var message: TMessage);
> begin
> if AcceptTabs then
> message.Result := DLGC_WANTARROWS or DLGC_WANTCHARS or
> DLGC_WANTTAB
> else
> message.Result := DLGC_WANTARROWS or DLGC_WANTCHARS;
> end; { WMGetDlgCode }
>
> Regards, Paul.
>
> -----Original Message-----
> From: Luke Pascoe [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, June 13, 2001 4:25 PM
> To: Multiple recipients of list delphi
> Subject: [DUG]: I don't recall if I already asked this but...
>
>
> ...How do you trap the tab key in a TEdit and stop it moving
> focus to the
> next component? I want to trigger an event on tab.
> OnKeyDown/Press doesn't
> work, and OnKeyUp is too late :-(
>
> ========================================================
> Luke Pascoe Delphi Programmer
> enSynergy Consulting LTD
>
> [EMAIL PROTECTED] +64-9-3551593 fax +64-9-3551590
> Level 4, 10-12 Federal St, Auckland, New Zealand
> PO Box 32521, Devonport, Auckland 1330, New Zealand
>
> ================== I.H.T.F.P. ==========================
> --------------------------------------------------------------
> -------------
> New Zealand Delphi Users group - Delphi List -
> [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
> --------------------------------------------------------------
> -------------
> New Zealand Delphi Users group - Delphi List -
> [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
