开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
NewDial.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

NewDial.pas：源码内容
  1. unit NewDial;
  3. interface
  5. uses
  6.   Qt, SysUtils, Classes, QGraphics, QControls, QForms, QDialogs,
  7.   QStdCtrls, QButtons;
  9. type
  10.   TFormItem = class(TForm)
  11.     EditReference: TEdit;
  12.     EditAuthor: TEdit;
  13.     EditCountry: TEdit;
  14.     ComboType: TComboBox;
  15.     Label1: TLabel;
  16.     Label2: TLabel;
  17.     Label3: TLabel;
  18.     Label4: TLabel;
  19.     BitBtn1: TBitBtn;
  20.     BitBtn2: TBitBtn;
  21.   private
  22.     { Private declarations }
  23.   public
  24.     procedure Clear;
  25.   end;
  27. var
  28.   FormItem: TFormItem;
  30. implementation
  32. {$R *.xfm}
  34. { TFormItem }
  36. procedure TFormItem.Clear;
  37. var
  38.   I: Integer;
  39. begin
  40.   // clear each edit box
  41.   for I := 0 to ControlCount - 1 do
  42.     if Controls [I] is TEdit then
  43.       TEdit (Controls[I]).Text := '';
  44. end;
  46. end.
  47.