フォームを開いた状態に元に戻すには？

解決

saga 2005-05-31 22:55:09 No: 15238

フォームを開いたときの状態にボタンクリックで戻したいとおもっているのですが
どうしたらいいのかわからんとです。どなたかおられませんか？

oita 2005-05-31 23:18:08 No: 15239

private
{ Private 宣言 }
WindowTop, WindowLeft, WindowWidth, WindowHeight: Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  WindowTop := Top;
  WindowLeft := Left;
  WindowWidth := Width;
  WindowHeight := Height;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Top := WindowTop;
  Left := WindowLeft;
  Width := WindowWidth;
  Height := WindowHeight;
end;

saga 2005-05-31 23:19:14 No: 15240

サイズじゃなくデータなんですが

deldel 2005-05-31 23:24:49 No: 15241

若しくは、

  private
    { Private 宣言 }
    R: TRect;

procedure TForm1.FormCreate(Sender: TObject);
begin
R := Form1.BoundsRect;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SetBounds(R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top);
end;

saga 2005-05-31 23:26:54 No: 15242

だからサイズとか場所じゃなくデータなんですが

deldel 2005-05-31 23:29:09 No: 15243

あ〜〜〜データですか・・・
それには全ての変数やプロパティを起動時にグローバル変数に記憶しておき、
ボタンクリックイベントで元に戻す、というふうにすれば良いです。
面倒ですが・・・。
または、
ShellExecute(Handle, nil, PChar(同じアプリのファイル名), nil, nil, SW_SHOW);
Close;
ですかねぇ・・・

ななし 2005-05-31 23:52:24 No: 15244

記憶にはClientDataSetを使うと楽ですよ。

saga 2005-06-01 01:17:20 No: 15245

みなさま解決できました。ありがとうございます。