mainunit.pas

Delphi7编程界面设计 Delphi7编程界面设计

unit MainUnit;

interface

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

type
  TMainForm = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  Rgt, Btm: Integer;
implementation

{$R *.DFM}

procedure TMainForm.Button1Click(Sender: TObject);   //改变矩形边界
var
  Rect: TRect;
begin
  SendMessage(Memo1.Handle, EM_GETRECT, 0, LongInt(@Rect));  //获取Memo1的矩形边界
  Rgt:= Rect.Right;    //保存原始矩形边界宽度
  Btm:= Rect.Bottom;   //保存原始矩形边界高度
  if Edit1.Text<> '' then
    Rect.Left:= StrToInt(Edit1.Text)   //更改Rect边界值
  else ShowMessage('请填入左边距');
  if Edit2.Text<>'' then
    Rect.Top:= StrToInt(Edit2.Text)
  else ShowMessage('请填入上边距');
  Rect.Right:= Rect.Right- StrToInt(Edit1.Text)+ 1;
  Rect.Bottom:= Rect.Bottom- StrToInt(Edit2.Text)+ 1;
  SendMessage(Memo1.Handle, EM_SETRECT, 0, LongInt(@Rect));   //重绘Memo1的矩形边界
  Memo1.Refresh;
end;

procedure TMainForm.Button2Click(Sender: TObject);   //恢复原始矩形边界
var
  Rect: TRect;
begin
  Rect.Left:= 1;
  Rect.Top:= 1;
  Rect.Right:= Rgt;
  Rect.Bottom:= Btm;
  SendMessage(Memo1.Handle, EM_SETRECT, 0, LongInt(@Rect));
  Memo1.Refresh;
end;

end.