procedure Form1.MenuItem1Click(Sender: TObject);
// MenuItem1Click - обработчик выбора пункта меню
var Form2: TForm2;
begin
Form2:=TForm2.Create(Form1);
end;
открытие окна в Мdi-приложении
Добрый день.
Есть родительская форма (Form1) и mdiChild (Form2).
Как сделать так, чтобы при выборе пункта меню открывалась Form2.
Есть родительская форма (Form1) и mdiChild (Form2).
Как сделать так, чтобы при выборе пункта меню открывалась Form2.
Цитата:
Originally posted by batvin1
Добрый день.
Есть родительская форма (Form1) и mdiChild (Form2).
Как сделать так, чтобы при выборе пункта меню открывалась Form2.
Добрый день.
Есть родительская форма (Form1) и mdiChild (Form2).
Как сделать так, чтобы при выборе пункта меню открывалась Form2.
Код:
В дельфи есть стандартный шаблон проекта MDI Application, создай из него новый проект и посмотри как там это происходит.
Цитата:
Originally posted by makbeth
В дельфи есть стандартный шаблон проекта MDI Application, создай из него новый проект и посмотри как там это происходит.
Код:
procedure Form1.MenuItem1Click(Sender: TObject);
// MenuItem1Click - обработчик выбора пункта меню
var Form2: TForm2;
begin
Form2:=TForm2.Create(Form1);
end;
// MenuItem1Click - обработчик выбора пункта меню
var Form2: TForm2;
begin
Form2:=TForm2.Create(Form1);
end;
В дельфи есть стандартный шаблон проекта MDI Application, создай из него новый проект и посмотри как там это происходит.
Спасибо, все заработало.только вот с какой проблемой столкнулся:
Есть две формы (родительская и дочерняя), при выборе пункта меню должна открываться дочерняя форма, в которую в RichEdit загружается RTF-овский файл.
Так вот. Если дочерняя форма загружается сразу с родительской, то при выборе пункта меню открывается новая форма (пустая), а текст загружается в ту дочернюю форму, которая была загружена в самом начале.
Что надо изменить?
Листинг родительской формы:
uses Richforma2;
{$R *.dfm}
procedure TForm1.asd1Click(Sender: TObject);
begin
TForm_rich.Create(Self);
Form_rich.RichEdit1.Lines.LoadFromFile('\vvedenie.rtf');
end;
end.
Цитата:
Originally posted by batvin1
Что надо изменить?
Что надо изменить?
Удалить из исходника описание
Код:
var
Form_rich: TForm_rich;
Form_rich: TForm_rich;
После этого думать, почему ругается компилятор. Читать учебники по ООП и справку. Может, и наступит озарение. М@#$ки в Борланде почему-то решили сделать, как в Visual Basic, и все каноны ООП полетели в тартарары. Как раз тот случай, когда простота хуже воровства.
Поищи еще на форуме, где я советовал удалить переменную формы. Тема уже не первый раз поднимается.