Rows to the component memo

[elidorio]

Hello all,

How to add rows to the component memo ?

[] 's

Edson

[Mike.Cornflake]

Is this what you're after?

Code: [Select]

Memo1.Lines.Add('');

[wp]

[] 's

?

[elidorio]

I want to insert a new row with the ENTER key.

[howardpc]

The default behaviour of TMemo when you press [Enter] is to move you to the start of a new line (row) below any existing ones.
How do you want this behaviour modified?

[wp]

No, when WantReturns is true (and this is the default), the ENTER key adds a new line at the position of the cursor (just tested on Windows).

[elidorio]

The problem is, use the command below in the onKeyPress Event to Enter work in the form, only now the DBmemo component does not work due to this command.

if key = # 13 then
begin
Key: = # 0;
Perform (Wm_NextDlgCtl .0 .0);
SelectNext (activecontrol, True, True);
end;

How to bypass this?

[Mike.Cornflake]

What is that code doing?   Near as I can make out, when the user hits return in a DBMemo, that code cancels the Return key and sets focus to the next control (actually, if it's doing what I *think* it's doing it sets focus to the next control, and then sets focus to the control after that).   Is this what you mean by "does not work"? 

Forget  all that focus the next control stuff...

Try something like...

Code: [Select]

if key = # 13 then
begin
  TDBMemo(Sender).Lines.Add('');
  key := #0;
end;

[elidorio]

I tried to use this code and this generating AV errors.

[Mike.Cornflake]

Did you set a breakpoint to find out why?
Is Sender being passed, or is it nil? 
Is Sender even a TDBMemo?
Are you sure they were AV errors?  That's a data aware control.  Is the dataset in edit mode?
Without you posting full code, we're working in the dark, which is frankly frustrating :-(

Assumptions in my code:
  You put the code in the TDBMemo.OnKeyPressed (and not a normal TMemo.OnKeyPressed)
  You're not manually calling the OnKeyPressed function and passing nil

Please read this:
http://wiki.lazarus.freepascal.org/Lazarus_Faq#What_is_the_correct_way_to_ask_questions_in_the_forum.3F

[lazjump]

Hi Elidorio,

I think I know what you're trying to do.

You want to make your form to use Enter key to go to the next control, like the Tab key. So you type some code in the form's OnKeyPress event to make the Enter key to go to the next control. But when the current control is a memo, you want the Enter key to function normally (to add lines to the memo).

If that is what you're trying to do, then the solution is simple. Add this on the first line of the OnKeyPress event handler:

Code: [Select]

if Self.ActiveControl is TMemo then Exit;

[Mike.Cornflake]

Hi Elidorio,

I think I know what you're trying to do.

You want to make your form to use Enter key to go to the next control, like the Tab key. So you type some code in the form's OnKeyPress event to make the Enter key to go to the next control. But when the current control is a memo, you want the Enter key to function normally (to add lines to the memo).

If that is what you're trying to do, then the solution is simple. Add this on the first line of the OnKeyPress event handler:

Code: [Select]

if Self.ActiveControl is TMemo then Exit;

Absolutely amazing bit of detective work there.  Yes, this would make sense of the issues...  Nice work :-)   I *think* he's using TDBMemo's, but either way, the following change might be worth doing...

Code: [Select]

if Self.ActiveControl is TCustomMemo then Exit;

[elidorio]

Hello All,
Fantastic, worked perfectly.
Thank you all so much.
Follow the code

--
Edson

[lazjump]

Glad it works.

And thanks to Mike.Cornflake, the code works with TMemo and TDBMemo.