フォームを開く時に判断

佐藤恵 2002-11-26 04:02:23 No: 2208

はじめまして、佐藤恵と申します。

早速ですが、質問させていただきます。
Aフォーム
新規ボタン
更新ボタン

Bフォーム
Edit１

があります。
Aフォームの新規ボタンか、更新ボタンを押すと
Bフォームが開きます。
その判断で、Edit１に、内容を入れます。
(Editは、本当はたくさんあります。）

そこで、質問です。
Bフォームを開く時に、
Aフォームで
  新規ボタンを押されたか、
  更新ボタンを押されたか
  を判断するには、どうすればよいのですか？

やりたいのは、更新の時は、クエリーの内容を見て
Edit１に内容入力。
新規の時は、クエリーを見ずに、そのまま開く。

これを、Bフォームの方で判断したいんです。

なにぶん初心者なので、よくわからないことを言っていると
思いますが、宜しくお願いします。

にしの 2002-11-26 09:49:57 No: 2209

BフォームのPublicに、変数を用意するだけです。
変更時に何かアクションがほしいならば、プロパティにすればできます。

たとえば、BフォームのPublicに、
public
{ Public 宣言 }
IsNew: Boolean;
と宣言しておけば、
BForm.IsNew := True;
とできます。

また、プロパティにする場合は、
private
  { Private 宣言 }
  FIsNew: Boolean;
  procedure SetIsNew(Value: boolean);
public
  { Public 宣言 }
  property IsNew: Boolean read FIsNew write SetIsNew;
として、SetIsNewプロシージャを用意すれば、
BForm.IsNew := True;
としたときに、内部できにSetIsNew(True)が呼び出されるので、ここで値が変更されたときの処理ができます。