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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
Unit1.~pas
资源名称：xiaobai.rar　[点击查看]
上传用户：autowell
上传日期：2022-06-21
资源大小：16754k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

Unit1.~pas：源码内容
  1. unit Unit1;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     Label1: TLabel;
  12.     Label2: TLabel;
  13.     Edit1: TEdit;
  14.     Edit2: TEdit;
  15.     Label3: TLabel;
  16.     Label4: TLabel;
  17.     ComboBox1: TComboBox;
  18.     Label5: TLabel;
  19.     ComboBox2: TComboBox;
  20.     Button1: TButton;
  21.     Button2: TButton;
  22.     Button3: TButton;
  23.     Button4: TButton;
  24.     procedure Button1Click(Sender: TObject);
  25.     procedure Button3Click(Sender: TObject);
  26.     procedure Button2Click(Sender: TObject);
  27.     procedure Button4Click(Sender: TObject);
  28.     procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  29.       Y: Integer);
  30.   private
  31.     { Private declarations }
  32.   public
  33.     { Public declarations }
  34.   end;
  36. var
  37.   Form1: TForm1;
  39. implementation
  41. {$R *.dfm}
  43. procedure TForm1.Button1Click(Sender: TObject);
  44. begin
  45.   edit1.Text:='';
  46.   edit2.Text:='';
  47. end;
  49. procedure TForm1.Button3Click(Sender: TObject);
  50. begin
  51.   close;
  52. end;
  54. procedure TForm1.Button2Click(Sender: TObject);
  55. begin
  56.   MessageDlg('这是教师信息窗体!!!',mtInformation,[mbok],0);
  57. end;
  59. procedure TForm1.Button4Click(Sender: TObject);
  60. begin
  61.   showmessage('这是显示教师信息的窗体!!');
  62. end;
  64. procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  65.   Y: Integer);
  66. begin
  67.       showMessage('鼠标移动!!');
  68. end;
  70. end.