Change Form.NavigateKeys at runtime

[lxpbuaa]

At runtime,  change Form.NavigateKeys.Enabled or Form.NavigateKeys.Nex.Key,  it doesnt work.  

 

e.g.

 

procedure TEditDataForm.OnMemoEnter(Sender: TObject);

begin

  NavigateKeys.Next.Key := 0;

  NavigateKeys.Enabled := False;

end;

 

procedure TEditDataForm.OnMemoExit(Sender: TObject);

begin

  NavigateKeys.Next.Key := 13;

  NavigateKeys.Enabled := True;

end;

 

It means when the focus is in Memo editor, I can enter RETURN key as a line feed.

How can I do it?

Thanks!

 

 

[Sherzod]

Hi,

 

It means when the focus is in Memo editor, I can enter RETURN key as a line feed.

How can I do it?

 

Maybe this will help you:

http://forums.unigui.com/index.php?/topic/6194-navigatekeys-unimemo/&do=findComment&comment=31702

 

UniMemo1 -> ClientEvents -> ExtEvents ... add keydown fn:

function keydown(sender, e, eOpts)
{
    if (e.getKey() == e.ENTER) {
        e.stopPropagation();
    }
}

Best regards.

[lxpbuaa]

Delphi Developer

Thanks a lot!

[lxpbuaa]

Hi,

 

 

Maybe this will help you:

http://forums.unigui.com/index.php?/topic/6194-navigatekeys-unimemo/&do=findComment&comment=31702

 

UniMemo1 -> ClientEvents -> ExtEvents ... add keydown fn:

function keydown(sender, e, eOpts)
{
    if (e.getKey() == e.ENTER) {
        e.stopPropagation();
    }
}

Best regards.

 

HI, I can't set the clienevent at runtime? Because the Memo editor is created dynamicly.

 

e.g.

  TUniMemo(Editor).ClientEvents.ExtEvents.Add

    ('keydown=function keydown(sender, e, eOpts) {if (e.getKey()== e.ENTER) {e.stopPropagation();}}');

[Sherzod]

Hi,

Memo.ClientEvents.ExtEvents.Values['keydown'] := 'function keydown(sender, e, eOpts) {if (e.getKey() == e.ENTER) {e.stopPropagation()}}';

[lxpbuaa]

Thank you!

[lxpbuaa]

Oh, sorry ,unfortunately, the memo created at  runtime  doesnt work.

 

UniMemo1 is ok, but Memo doesnt work.  Can you help me?

 

procedure TMainForm.UniFormCreate(Sender: TObject);

const

  KeyDownText = 'function keydown(sender, e, eOpts) {if (e.getKey() == e.ENTER) {e.stopPropagation()}}';

var

  Memo: TUniMemo;

begin

  Memo := TUniMemo.Create(self);

  Memo.Parent := self;

  Memo.Left := 50;

  Memo.ClientEvents.ExtEvents.Values['keydown'] :=  KeyDownText;

  UniMemo1.ClientEvents.ExtEvents.Values['keydown'] :=  KeyDownText;

end;

 

[Sherzod]

Memo.Name = ?

 

You must assign the Name

[lxpbuaa]

Memo.Name = ?

 

You must assign the Name

OK, Thanks!!!

[clovishulse]

Hi.

 

I used this solution but from the FMSoft_uniGUI_Complete_Professional_1.10.0 doesn't work.

 

What is the soluction?

[Sherzod]

Hi,

 

Are you using a trial edition?!

[clovishulse]

No.

 

Version FMSoft_uniGUI_Complete_Professional_1.10.0.1459

[Sherzod]

First of all please visit here:

 

http://forums.unigui.com/index.php?/topic/6291-new-users-please-adjust-your-forum-email-address/

[webdev]

Hi.

 

Ready.

My account is correct.

[Sherzod]

Hi,

 

Thanks for the update.

 

Can you make a simple testcase for your issue?!

[webdev]

Hi.

 

 

How to send the test programa by attachment?

[Sherzod]

How to send the test programa by attachment?

[webdev]

Hi.

 

Test program.

Test.zip

[Sherzod]

Hi,

 

One possible solution:

 

UniMemo -> ClientEvents -> ExtEvents ->

function afterrender(sender, eOpts)
{
    sender.bodyEl.dom.addEventListener(
        'keydown', 
        function(e) {if (e.key=='Enter') {e.stopPropagation()}}
    );
}

Best regards,

[webdev]

Hi.

 

TUniMemo = OK

 

TUniDBMemo = No (doesn't work)

[Sherzod]

Hi,

 

TUniDBMemo = No (doesn't work)

 

I couldn't reproduce, works for me

 

Please make a simple testcase for this if possible

[webdev]

Hi.

 

New Test with DBMemo.

Test.zip

[Sherzod]

Hi,

 

Please use this approach for now:

 

Hi,

 

One possible solution:

 

UniMemo -> ClientEvents -> ExtEvents ->

function afterrender(sender, eOpts)
{
    sender.bodyEl.dom.addEventListener(
        'keydown', 
        function(e) {if (e.key=='Enter') {e.stopPropagation()}}
    );
}

Best regards,

[webdev]

Hi.

 

In the test application it worked correctly.

But in my project only when assigning in the Form.OnShow.

 

Thanks.

[Farshad Mohajeri]

Changing NavigateKey after form is created in not natively supported and it is not easy to implement.

I see that DD has tried to achieve a solution, but why do you need this in the first place?