コンポーネントをセルフイベントに呼び出す方法 - DELPHI

Question

独自のプロパティを設定するプロシージャを作成したいとします。サンプルコードを参照してください。私は、Delphi XEに

サンプルを使用しています：

procedure TCarcassUpdateForm.ChangeText; 
    begin 
     if self.Text = '' then 
     begin 
     Self.Text := '0'; 
     end; 
    end; 

//Edit 14 
procedure TCarcassUpdateForm.MyDBLabeledEdit14Exit(Sender: TObject); 
    begin 
    ChangeText 
    end; 

//Edit 15 
procedure TCarcassUpdateForm.MyDBLabeledEdit15Exit(Sender: TObject); 
    begin 
    ChangeText 
    end; 

Answer 1

あなたのアプローチは、私にはほとんど意味がありません。私はあなたが何をしようとして理解していれば、ここであなたの代わりに何をすべきかです：コントロールのいずれかに

• クリックして（のは、それが簡単にするために、それDBEdit1を呼びましょう）。
• オブジェクトインスペクタの[イベント]タブに切り替えて、OnExitイベントをダブルクリックします。コードエディタで

• 、あなたはにそのコード

  procedure TCarcassUpdateForm.DBEdit1Exit(Sender: TObject); 
  begin 
  
  end; 
  

• 編集が表示されます：

  procedure TCarcassUpdateForm.DBEdit1Exit(Sender: TObject); 
  var 
      Edit: TDBEdit; // replace with your actual control class 
  begin 
      // Replace TDBEdit with the your actual control class 
      Edit := (Sender as TDBEdit); 
      if Edit.Text = '' then 
      Edit.Text := '0'; 
  end; 
  

• バックオブジェクトインスペクタに移動し、DBEdit1ExitからOnExitイベントの名前を変更しますAllDBEditExit。フォームデザイナで

• 、はCtrl +LeftClickあなたがそれらすべてを選択するために、同じ動作をしたいの各コントロール。
• オブジェクトインスペクタのイベントタブで、OnExitイベントのドロップダウンリストをクリックし、イベント名としてAllDBEditExitを選択します。