How to add multiple lines to multiline edit?

@dev

Delphi Developer

Fri, 22 Nov 2002 03:00:00 GMT

How to add multiple lines to multiline edit?

I create edit like this:

hEdit : HWND // handle of main edit

hEdit:=CreateWindowEx(WS_EX_CLIENTEDGE,'Edit','',
WS_VISIBLE or WS_CHILD or ES_LEFT or ES_MULTILINE or
ES_WANTRETURN or ES_AUTOVSCROLL or
WS_VSCROLL,5,34,380,234,Handle,0,hInst,nil);

and add line with this:
SendMessage(hEdit,WM_SETTEXT,0,Longint(PChar('Test')));

but it replaces old text of edit.
How to add new line?

T.Hakala

AlanGLLo

Delphi Developer

Sat, 23 Nov 2002 03:00:00 GMT

Re:How to add multiple lines to multiline edit?

Quote

In article <8hh0ci$n4...@news.kolumbus.fi>, "@dev" <N...@EMAIL.NO> writes:
>I create edit like this:

>hEdit : HWND // handle of main edit

>hEdit:=CreateWindowEx(WS_EX_CLIENTEDGE,'Edit','',
>WS_VISIBLE or WS_CHILD or ES_LEFT or ES_MULTILINE or
>ES_WANTRETURN or ES_AUTOVSCROLL or
>WS_VSCROLL,5,34,380,234,Handle,0,hInst,nil);

>and add line with this:
>SendMessage(hEdit,WM_SETTEXT,0,Longint(PChar('Test')));

>but it replaces old text of edit.
>How to add new line?

If you _must_ do it this way (and Delphi is marketed to save you getting
involved in all this {*word*193}, dirty Windows stuff) then either you use WM_GETTEXT
to obtain the existing text, add a CRLF and the new text and _then_ use
WM_SETTEXT, or you use LB_ADDSTRING or LB_INSERTSTRING.

Delphi would just use ListBox1.Items.Add('Test').

Alan Lloyd
alangll...@aol.com

M.H. Avegaar

Delphi Developer

Sat, 23 Nov 2002 03:00:00 GMT

Re:How to add multiple lines to multiline edit?

Use EM_SETSEL to set the selection markers to the end of the text and
EM_REPLACESEL to add text.

"@dev" <N...@EMAIL.NO> schreef in bericht
news:8hh0ci$n40$1@news.kolumbus.fi...

Quote

> I create edit like this:

> hEdit : HWND // handle of main edit

> hEdit:=CreateWindowEx(WS_EX_CLIENTEDGE,'Edit','',
> WS_VISIBLE or WS_CHILD or ES_LEFT or ES_MULTILINE or
> ES_WANTRETURN or ES_AUTOVSCROLL or
> WS_VSCROLL,5,34,380,234,Handle,0,hInst,nil);

> and add line with this:
> SendMessage(hEdit,WM_SETTEXT,0,Longint(PChar('Test')));

> but it replaces old text of edit.
> How to add new line?

> T.Hakala

Other Threads

1. Add line breaks to an edit box text

2. Add line breaks to Edit box text?

3. Non DB multiline Edit.

4. Color in multiline editing

5. Multiline edit control

6. How many lines in a multiline?

7. How to use one field to have multiple field values go to multiple lines

8. Add lines (text) to memo without line feed?

9. RichEdit: Always one line more after adding new line

10. RichEdit adds empty line at the end of each line