form1+memo1,form2+memo2 memo1.lines=memo2.lines

← →
ктото (2002-08-22 17:35) [0]

предположим что у нас есть 2 формы, на каждой
есть memo, как сделать чтобы когда в первой форме
писалась буква то и в другой тоже
Form1.memo1.lines:=form2.memo1.lines;
не выходит :(

← →
Song © (2002-08-22 17:38) [1]

Послать второй форме WM_CHAR с кодом последнего набранного символа.

← →
andy_prokofiev © (2002-08-22 17:39) [2]

Form1.memo1.lines.Text:=form2.memo1.lines.Text

← →
Cr@sh © (2002-08-22 17:39) [3]

procedure TForm1.Memo1Change(Sender: TObject);
begin
form2.Memo1.Lines:=memo1.Lines;
end;

← →
Mike_Goblin © (2002-08-22 17:39) [4]

Form1.memo1.lines:=form2.memo1.lines; может местами переставить :))) чтобы во второй форме писалось
Используй событие Memo - OnChange

← →
Игорь Шевченко © (2002-08-22 17:42) [5]

Может, form2.Memo1.Lines.Assign(Form1.Memo1.Lines) ?

← →
Song © (2002-08-22 17:43) [6]

Кстати, почему не выходит?
Вот и больше ничего не надо:
procedure TForm1.Memo1Change(Sender: TObject); begin Form2.Memo1.Lines.Assign(TMemo(Sender).Lines); end; procedure TForm1.FormShow(Sender: TObject); begin Form2.Show; end;

← →
Song © (2002-08-22 17:44) [7]

2Игорь Шевченко © (22.08.02 17:42)
:-)

← →
ктото (2002-08-22 17:45) [8]

первое сообщение: (22.08.02 17:35)
последнее:(22.08.02 17:42)
...
быстро вы :)
спасибо всем

← →
ктото (2002-08-22 17:55) [9]

блин почему нифига не получается?
может это потому что я использую
Form1.Memo1.Lines.Insert(0,mystring)?

Вам написали кучу рабочих примеров.

← →
ктото (2002-08-22 18:01) [11]

хмм... не знаю насколько они рабочие хотя наверняка я
торможу(то есть точно) но это не важно я просто на 2ой
форме таймер поставил

form1+memo1,form2+memo2 memo1.lines=memo2.lines Найти похожие ветки