type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
  private
    FEditing: Boolean;
    FCurrentFileName: String;
    procedure SetEditing(Value: Boolean);
    procedure SetCurrentFileName(Value: String);
  public
    property Editing: Boolean read FEditing write SetEditing;
    property CurrentFileName: String read FCurrentFileName
                                     write SetCurrentFileName;
  end;

var
  Form1: TForm1;
  
implementation

procedure TForm1.SetEditing(Value: Boolean);
begin
  FEditing := Value;
  SpeedButton1.Enabled := Value;
  SpeedButton2.Enabled := Value;
  MenuItem1.Enabled := Value;
  MenuItem2.Enabled := Value;
end;

procedure TForm1.SetCurrentFileName(Value: String);
begin
  FCurrentFileName := Value;
  Caption := Application.ExeName + FCurrentFileName;
  Application.Title := Caption;
end;

利用法
  Form1.Editing := True;
  Form1.Editing := False;
  Form1.CurrentFileName := 'hehehe.obj';

                                                   本田勝彦

Original document by 本田勝彦        氏 ID:(VYR01647)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。