97 ソース1 // 項目のクリア Edit1.Clear； Edit2.Clear； ・・・ ソース2 クリア処理 // フォーム全てのコンポーネントを処理 for i := 0 to Form1.ControlCount - 1 do begin //Edit であればEdit として扱う if (Form1.Controls[i] is TEdit) then TEdit(Form1.Controls[i]).Clear; end; ソース3 継承元フォーム // 継承元フォームのFormCreate イベント procedure TFormBase.FormCreate(Sender: TObject); begin // 処理�@ end; ソース4 継承先フォーム // 継承先フォーム画面のFormCreate イベント procedure TForm1.FormCreate(Sender: TObject); begin inherited; // ここでイベントが継承されて�@が実行される // 処理�A end; ソース5 継承元フォーム // 継承元フォームのFormCreate イベント procedure TFormBase.FormCreate(Sender: TObject); begin // 処理�@ acDefault.Execute; // ここで処理�Aの内容が実行される。 end; ソース6 継承先フォーム // 継承先フォーム画面のacDefault のExecute イベント procedure TForm1.acDefaultExecute(Sender: TObject); begin inherited; // 処理�A end;