Oops! Pushed send by mistake....
Add the below message handler to the auto generated code and leave the
implementation empty, without inherited.
This fixes the OleControl not responding to certain useful keystrokes
and doesn't have any perceptible bad things
happen
TTestForm = class(TOleControl)
private
....
protected
procedure CreateControl;
procedure InitControlData; override;
procedure CNKeyDown(var Message: TWMKeyDown); message CN_KEYDOWN;
//ADD THIS TO FIX TAB ISSUE AND ENTER KEY
public
property ControlInterface: IMtEchoTestForm read
GetControlInterface;
property DefaultInterface: IMtEchoTestForm read
GetControlInterface;
property Visible: WordBool index 1 read GetWordBoolProp write
SetWordBoolProp;
property Active: WordBool index 9 read GetWordBoolProp;
property DropTarget: WordBool index 10 read GetWordBoolProp write
SetWordBoolProp;
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of vss
> Sent: Thursday, 3 July 2003 11:53 a.m.
> To: Multiple recipients of list delphi
> Subject: [DUG]: Tab key stoped responding
>
>
> Hi All. I have an app. that loads an MDI form form a DLL, via the
> MaxPlugin structure.
> I have noticed for SOME reason, the tab key has stopped
> responding ! I have checked all teh TabStops and they are all
> set to TRUE and that
> sort of thing. I am using a scroll box and thought it might have been
> only the controls in there, but even if I click on a button
> of the form
> then try to tab off it, still no luck.
> KeyPreview is turned off on the form.
>
> Anyone got any ideas??
>
> Thanks, Jeremy
>
> --------------------------------------------------------------
> -------------
> 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"
> Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
>
---------------------------------------------------------------------------
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"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
