• Registered: 2018-03-04
  • Posts: 377

Topic: Подскажите, как пользоваться полем Memo...

По моим выкладкам поле memo не имеет начала и конца...
Если навести переключение фокуса через кн. enter, то содержимое поля начинает скатываться вниз до бесконечности. Тогда принял решение навести фокус на конец введенного текста... и текст пополз бесконечно вверх.
Подскажите как правильно настроить или исправьте, чтоб хотя бы было жесткое начало, как у "луча"

2 Reply by k245 (edited by k245 2019-08-26 08:07:29)

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,545

Re: Подскажите, как пользоваться полем Memo...

vit007, да вы художник:

...и текст пополз бесконечно вверх.


http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=5759&download=0

Post's attachments

Attachment icon inf.jpg 142.11 kb, 130 downloads since 2019-08-26 

Визуальное программирование: блог и телеграм-канал.

k245's Website

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Подскажите, как пользоваться полем Memo...

Приложите ваш проект, а то пока не совсем ясно, что происходит.

Dmitry.

4 Reply by vit007 (edited by vit007 2019-08-26 12:50:13)

  • Registered: 2018-03-04
  • Posts: 377

Re: Подскажите, как пользоваться полем Memo...

Вот...
т.е. получается, что enter для memo является переходом на новую строку, и поэтому текст убегает...
А надо б , чтоб enter был переходом...

Post's attachments

Attachment icon Новая папка.rar 292.61 kb, 233 downloads since 2019-08-26 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Подскажите, как пользоваться полем Memo...

Необходимо использовать событие OnKeyPress

procedure Form1_Memo2_OnKeyPress (Sender: TObject; var Key: Char);
begin
    if Key=#13 then
    begin
        Key := #0;
        form1.SetFocusNextControl;
    end;
end;

procedure Form1_Memo1_OnKeyPress (Sender: TObject; var Key: Char);
begin
    if Key=#13 then
    begin
        Key := #0;
        form1.SetFocusNextControl;
    end;
end;
Dmitry.
  • Registered: 2018-03-04
  • Posts: 377

Re: Подскажите, как пользоваться полем Memo...

сп. помогло.