Скачать: CL | DM;

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)?

---

← →
Song ©   (2002-08-22 17:56) [10]

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.014 c