создание многооконного редактора

[Starkiska]

сейчас занимаюсь созданием многооконного текстового редактора.
возникли проблемы..
1. когда я нажимаю сохранить текстовый файл, ввожу имя - и либо им присваивается первой форме(родительской) либо не присваивается вобще.
а должно присвоиться второй форме (дочерней).

procedure TForm1.MSaveAsClick(Sender: TObject);
var newf:TForm2;
begin
with ActiveMdiChild as TForm2 do
begin
if SaveDialog1.Execute then
begin
fn:=SaveDialog1.FileName;
Memo1.Lines.SaveToFile(fn);
Memo1.Modified:=False;
end;
begin
newf.Caption:=fn;
end;
end;
fn:='';
end;

2. когда я делаю изменения в сохраненном файле и жму СОХРАНИТЬ, должно просто сохраниться под этим же именем.
а у меня вылетает окно СОХРАНИТЬ КАК.

procedure TForm1.MSaveClick(Sender: TObject);
begin
with ActiveMdiChild as tform2 do
begin
if sav=0 then
begin
mSaveAsClick(Sender);
exit;
end;
Memo1.Lines.SaveToFile(fn);
Memo1.Modified:=False;
sav:=1
end;
end;

3. когда я нажимаю ОТКРЫТЬ, 1 файл открывается правильно. когда я снова нажимаю открыть, чтобы появился другой файл, у меня в строке ввода файла уже стоит имя предыдущего.

procedure TForm1.MOpenClick(Sender: TObject);
var
fn:string;
newf:TForm2;
begin
with ActiveMdiChild as TForm2 do
BtPaste.Enabled:=true;
MCopy.Enabled:=true;
MCut.Enabled:=true;
MPaste.Enabled:=true;
btCopy.enabled:=true;
btCut.enabled:=true;
fn:='';
nw:=nw+1;
if OpenDialog1.Execute then
begin
if nw>1 then
begin
BtCascade.Enabled:=true;
BtHorizontal.Enabled:=true;
BtVertical.Enabled:=true;
MCascade.Enabled:=true;
MHorizontal.Enabled:=true;
MVertical.Enabled:=true;
end;
NewF:=TForm2.Create(Application);
with ActiveMdiChild as TForm2 do
begin
fn:=OpenDialog1.FileName;
NewF.Caption:=fn;
memo1.Lines.LoadFromFile(fn);
end;
end
end;

(ЗДЕСЬ также прописывается условие, если в форме введено что либо - видны кнопки и пункты меню Правка; и если форм больше чем одна - видны пункты меню и кнопки управления окнами: каскад, по горизонтали, по вертикали..)

[spamer]

2,3)

//Код для кнопки - Сохранить
if SaveDialog1.FileName<>'' then
    RichEdit1.Lines.SaveToFile(SaveDialog1.Filename)
  else
    with SaveDialog1 do
      if Execute then
      begin
        RichEdit1.Lines.SaveToFile(FileName);
        Caption :=ExtractfileName(FileName)+' - TextEdit';
        RichEdit1.Modified:=false;
      end;



//Код для кнопки - Сохранить как...
With SaveDialog1 do
  if Execute then
    begin
      RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
      Caption:='TextEdit '+'- '+ExtractFileName(SaveDialog1.FileName);
    end;
RichEdit1.Modified:=false;



//Там где вы открываете файл необходимо написать:
RichEdit1.Modified:=false;



//Код для кнопки - Открыть
With OpenDialog1 do
  if Execute then
  try
      begin
        RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
        HistoryList.Add(OpenDialog1.FileName);
        Caption:='TextEdit '+'- '+ExtractFileName(OpenDialog1.FileName);
        SaveDialog1.FileName :=Filename;
        FileName :='';
      end;
  except
    on EFOpenError do
      MessageDlg('Файл с указанным именем не существует',mtWarning,[mbOk],0);
end;
RichEdit1.Modified:=false;

P.S. Примеры написаны для компонента TRichEdit, который я вам советую использовать вместо ТMemo.

[Starkiska]

спасибо. чуть позже напишу, работает или нет.