Проблема с Memo [Delphi]
Hi all!
Вознила проблема. Не могу правльно инициализировать Memo.
Вот код. Я хочу создать Memo1 в процессе выполнения программы, но не знаю
как это правильно сделать. Код почему-то не работает. Подскажите как
правильно?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
Memo1:TMemo;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1:=TMemo.Create(Form1);
Memo1.Lines.Add('why don't work?');
end;
end.
Пока!
С уважением Lakmus
http://www.nvkz.kuzbass.net/lakmus
Номер выпуска : 3473
Возраст листа : 324 (дней)
Количество подписчиков : 461
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/209796
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписать: mailto:comp.soft.prog.prog-unsub@subscribe.ru
http://subscribe.ru/ http://subscribe.ru/feedback
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
-*Информационный канал Subscribe.Ru
Адрес подписки:
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписать: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ http://subscribe.ru/feedback
Здоровеньки булы, Lakmus!
11 августа 2004 г., среда, 16:54:16 (GMT+05:00), пришел ко мне
почтальон Почкин и всучил письмо с пометкой "Проблема с Memo [Delphi]",
в котором сообщалось следующее:
Не знаю как у тебя, а у меня при запуске этого кода вылетела RunTime
ошибка:
Control '' has no parent window -
Типа у контрола нету родителя
сие обозначает - что Memo1.Parent ничему не равняется (или равняется
мусору - точно не помню):
Memo1.Parent := Form1;
А эта строчка - Memo1:=TMemo.Create(Form1); указывает лишь владельца
(см. Help TCustomMemo.Create).
PS: Memo1:TMemo указать лучше в publiс, а не как глобальную
переменную.