controlface.~pas

我觉得是很好的一个程序是关于房产中介的管理系统包跨哦出租出售求租求售的

unit ControlFace;

interface

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

type
  TFrm_ControlFace = class(Tfrm_base)
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure CMEraseBkgnd(var Message:TWMEraseBkgnd);Message WM_ERASEBKGND;
  end;

var
  Frm_ControlFace: TFrm_ControlFace;

implementation

{$R *.DFM}

Procedure TFrm_ControlFace.CMEraseBkgnd(var Message:TWMEraseBkgnd);
begin
  Brush.Style :=bsClear;
  inherited;

end;

end.