Child.Caption := Name; if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);と
procedure TMainForm.FileNew1Execute(Sender: TObject);
begin
CreateMDIChild('NONAME' + IntToStr(MDIChildCount + 1));
end;
を削除します。
Delphi はじめの一歩
タブブラウザを作る
<Lesson17> 余分なモノを削除する −（２）
ソース内の余分な部分も削除します。
エディタのMAINタブを選択して、下図のように、Child.Caption := Name; if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);と
procedure TMainForm.FileNew1Execute(Sender: TObject);
begin
CreateMDIChild('NONAME' + IntToStr(MDIChildCount + 1));
end;
を削除します。
|
|
|
ソースの37行目あたりの、
procedure FileNew1Execute(Sender: TObject);
も削除してください。 |
 |