unit1.pas

Delphi编程实效百例的随书程序 这是其中的界面操作部分

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Buttons, StdCtrls, ExtCtrls;

type
  Tform1 = class(TForm)
    Panel1: TPanel;
    Memo1: TMemo;
    delete: TSpeedButton;
    cut: TSpeedButton;
    copy: TSpeedButton;
    paste: TSpeedButton;
    StatusBar1: TStatusBar;
    StatusBar2: TStatusBar;
    StatusBar3: TStatusBar;
    procedure FormCreate(Sender: TObject);
    procedure copyClick(Sender: TObject);
    procedure pasteClick(Sender: TObject);
    procedure deleteClick(Sender: TObject);
    procedure cutClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure displayhint(Sender:Tobject);
    //声明调用一个新的过程
  end;

var
  form1: Tform1;

implementation

{$R *.DFM}

procedure Tform1.displayhint(Sender:Tobject);
begin
  form1.StatusBar1.SimpleText:=application.Hint;
  //显示提示文本
  form1.StatusBar2.SimpleText:=datetostr(date);
  //显示当前日期
  form1.StatusBar3.SimpleText:=timetostr(time);
  //显示当前时间
end;

procedure Tform1.FormCreate(Sender: TObject);
begin
  application.OnHint:=displayhint;
  //调用前面新声明的过程
end;

procedure Tform1.copyClick(Sender: TObject);
//复制文字
begin
  memo1.CopyToClipboard;
end;

procedure Tform1.pasteClick(Sender: TObject);
//粘贴文字
begin
  memo1.PasteFromClipboard;
end;

procedure Tform1.deleteClick(Sender: TObject);
//删除文字
begin
  memo1.clear;
end;

procedure Tform1.cutClick(Sender: TObject);
//剪切文字
begin
   memo1.CutToClipboard;
end;

end.