| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
form1+memo1,form2+memo2 memo1.lines=memo2.lines [D6, Win95/98]
ктото © (2002-08-22 17:35:00)предположим что у нас есть 2 формы, на каждой
есть memo, как сделать чтобы когда в первой форме
писалась буква то и в другой тоже
Form1.memo1.lines:=form2.memo1.lines;
не выходит :(
ктото (2002-08-22 18:01:00) [1]хмм... не знаю насколько они рабочие хотя наверняка я
торможу(то есть точно) но это не важно я просто на 2ой
форме таймер поставил
Song (2002-08-22 17:56:00) [2]Вам написали кучу рабочих примеров.
ктото (2002-08-22 17:55:00) [3]блин почему нифига не получается?
может это потому что я использую
Form1.Memo1.Lines.Insert(0,mystring)?
ктото (2002-08-22 17:45:00) [4]первое сообщение: (22.08.02 17:35)
последнее:(22.08.02 17:42)
...
быстро вы :)
спасибо всем
Song (2002-08-22 17:44:00) [5]2Игорь Шевченко © (22.08.02 17:42)
:-)
Song (2002-08-22 17:43:00) [6]Кстати, почему не выходит?
Вот и больше ничего не надо:
procedure TForm1.Memo1Change(Sender: TObject);
begin
Form2.Memo1.Lines.Assign(TMemo(Sender).Lines);
end;
procedure TForm1.FormShow(Sender: TObject);
begin
Form2.Show;
end;
Игорь Шевченко (2002-08-22 17:42:00) [7]Может, form2.Memo1.Lines.Assign(Form1.Memo1.Lines) ?
andy_prokofiev (2002-08-22 17:39:00) [8]Form1.memo1.lines.Text:=form2.memo1.lines.Text
Cr@sh (2002-08-22 17:39:00) [9]procedure TForm1.Memo1Change(Sender: TObject);
begin
form2.Memo1.Lines:=memo1.Lines;
end;
Mike_Goblin (2002-08-22 17:39:00) [10]Form1.memo1.lines:=form2.memo1.lines; может местами переставить :))) чтобы во второй форме писалось
Используй событие Memo - OnChange
Song (2002-08-22 17:38:00) [11]Послать второй форме WM_CHAR с кодом последнего набранного символа.
| |
