【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供BlockerForm.pas参考，解决您在BlockerForm.pas学习中工作中的难题，参考学习。

    unit BlockerForm;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      DialogBaseForm, StdCtrls, Buttons, ExtCtrls;
    
    type
      TfrmBlocker = class(TfrmDialogBase)
        Label1: TLabel;
        edtReason: TEdit;
        procedure bbnOkClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      frmBlocker: TfrmBlocker;
    
    implementation
    
    {$R *.DFM}
    
    procedure TfrmBlocker.bbnOkClick(Sender: TObject);
    begin
      inherited;
      if Trim(edtReason.Text) = '' then
      begin
          ShowMessage('开挡车器的原因不能为空，请再次输入！');
          Exit;
      end;
    end;
    
    end.
    

上一篇：bkxyunit.pas
下一篇：恋沫