Delphi练习一

最新推荐文章于 2021-03-18 15:01:34 发布

EYUANatQQdotCOM

最新推荐文章于 2021-03-18 15:01:34 发布

阅读量588

点赞数

分类专栏： Delphi 文章标签： delphi integer image button timer forms

本文链接：https://blog.csdn.net/EYUANatQQdotCOM/article/details/7309638

版权

Delphi 专栏收录该内容

8 篇文章 0 订阅

订阅专栏

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Panel1: TPanel;
    //门铃图片
    Image1: TImage;
    Button2: TButton;
    //定时
    Timer1: TTimer;
    //提示图片
    Image2: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Timer1Timer(Sender: TObject);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Form1Create(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var
  flagBeep: Boolean = False;
  tipPic: TPicture;
  //"开门"按钮点击事件处理过程

procedure TForm1.Button1Click(Sender: TObject);
var
  UserName, PassWord: string;
begin
  Panel1.Visible := true;
  UserName := ComboBox1.Text;
  PassWord := Edit1.Text;
  if (UserName = '张三') and (PassWord = 'zhangsan')
    or (UserName = '李四') and (PassWord = 'lisi')
    or (UserName = '王五') and (PassWord = 'wangwu')
    or (UserName = '赵六') and (PassWord = 'zhaoliu')
    then
  begin
    Panel1.Caption := '欢迎您';
    tipPic.LoadFromFile('yes.ico');
    Image2.Picture := tipPic;
  end
  else
    if (UserName = '') and (PassWord = '')
      then
    begin
      Panel1.Caption := '您忘记锁门了吗';
      tipPic.LoadFromFile('info.ico');
      Image2.Picture := tipPic;
    end
    else
    begin
      Panel1.Caption := '敲错门了吧';
      tipPic.LoadFromFile('no.ico');
      Image2.Picture := tipPic;
    end;

end;
//“走人”按钮点击事件处理过程

procedure TForm1.Button2Click(Sender: TObject);
begin
  if MessageBox(Handle, '确定要走吗？', '确认信息框', MB_OKCANCEL) = 1 then
    Close;
end;
//门铃

procedure TForm1.Image1Click(Sender: TObject);
begin
  //Beep;
end;
//门铃按下

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  flagBeep := True;
  tipPic.LoadFromFile('bell.ico');
  Image2.Picture := tipPic;
  Panel1.Visible := True;
  Panel1.Caption := '帮忙开门啊';
end;

//门铃松开

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  flagBeep := False;
  tipPic.LoadFromFile('bellNo.ico');
  Image2.Picture := tipPic;
  Panel1.Caption := '郁闷，没人帮忙';
end;
//响铃

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if flagBeep then
    Beep;
end;
//鼠标滑到"门铃"图片上

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  //  Panel1.Visible := True;
  //  Panel1.Caption := '要按门铃吗';
end;
//创建窗体

procedure TForm1.Form1Create(Sender: TObject);
begin
  tipPic := TPicture.Create;
end;

end.

运行结果截图：