Форум: "Основная";
Текущий архив: 2002.09.02;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.02;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c