[Smerch66]

Подскажите пожалуйста как решить следующую ситуацию:
В Memo1 есть текст.
Мне нужно стереть i-ую строчку, и на её же место написать другой текст.
Спасибо!

[AleD]

Сообщение от Smerch66

Подскажите пожалуйста как решить следующую ситуацию:
В Memo1 есть текст.
Мне нужно стереть i-ую строчку, и на её же место написать другой текст.
Спасибо!

(допустим mmInput это TMemo)

Код:

1	mmInput.Lines[i] := 'Новое значение строки';

[Biatov]

Подскажите пожалуйста как решить следующую ситуацию:
В Memo1 есть текст.
Мне нужно стереть i-ую строчку, и на её же место написать другой текст.
Спасибо!

Вот самая удобная замена i-той строки в Memo(готовая программа прикреплена)

[faust_yemen]

У меня тоже проблема, не совсем с Memo...

Надо, чтоб по DblClick Memo растягивался на весь экран и при повторном событии сворачивался обратно.

делаю примерно так

Код:

1 2 3 4 5 6 7 8 9 10 11 12

if f then     begin       {здесь сохраняю Top, Left, Align и т.д.}       windows.SetParent(Memo1.Handle,0);       setwindowpos(Memo1.Handle, 0, 0 ,0, screen.Width, screen.Height, SWP_SHOWWindow);     end   else     Begin       windows.SetParent(Memo1.Handle, form1.handle);        { и здесь восстанавливаю все параметры}   end; f:=NOT F;

Так вроде всё работает, но мне надо создать новый компонент с такой процедурой.

там почти также...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

var    param: paramMem;    w: TwinControl; begin   inherited Click;   if f then     begin       w:=self.Parent;       windows.SetParent(self.Handle,0);       setwindowpos(self.Handle, 0, 0 ,0, screen.Width, screen.Height, SWP_SHOWWindow);     end   else     Begin       windows.SetParent(self.Handle, w.handle);   end; f:=NOT F;

Но так Memo обратно прицепляться не хочет. В чём проблема? Или может есть более простой способ?
Delphi 7, XP