動的フレームの再作成でエラー (ID:22568)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

「間違い２」に来ますか（笑い）
本当は、「間違い１」を考えて貰いたいので
本当に最後の一回ヒントを出します。

下に、例ではTTestをCreateしないで使っています。
Create/Freeは実際内部的に何をしているか、です。

無担保無保証？さん
＞したそこが他のアプリケーションによって確保／書き換えられてしまうことは考えられるので、そこへの正常アクセスはいつまでも保証されないのでは？
エリア確保前に使えていますよね、後は自分で考えて下さい。

笑うセールスマンさん
＞Delphiとは関係ないし、Delphiを隅々まで理解しているような言動には笑わずにはいられません。
Delphiとは関係ないですか、私は笑いません、がんばって下さい。

出来れば「間違い１」を考えて下さい。

--------------------------------------------------------------------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

TTest = class
  private
    { Private 宣言 }
  public
    { Public 宣言 }
    procedure Test();
  end;

var
  Form1: TForm1;
   Test: TTest;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Test.Test();
end;

{ TTest }

procedure TTest.Test();
begin
  Form1.Caption := 'AAA';
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る