ActionListの使用方法
追加したActionのそれぞれのCaptionプロパティを「Open」「Close」と設定し、それぞれのOnExecuteイベントで実行時のコード(ファイルのOpenとClose)を記述します。
procedure TForm1.Action1Execute(Sender: TObject); begin Query1.Open; end; procedure TForm1.Action2Execute(Sender: TObject); begin Query1.Close; end;