Email Server

Development Platform:

Delphi

ufrmFilterPopTip.pas：Code Content

							unit ufrmFilterPopTip;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons, cxLabel,
  cxControls, cxContainer, cxEdit, cxGroupBox, dxSkinsCore, dxSkinBlack,
  dxSkinBlue, dxSkinCaramel, dxSkinCoffee, {dxSkinDarkRoom,} dxSkinDarkSide,
  {dxSkinFoggy,} dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinPumpkin, {dxSkinSeven,}
  {dxSkinSharp,} dxSkinSilver, {dxSkinSpringTime,} dxSkinStardust,
  dxSkinSummer2008, dxSkinsDefaultPainters, dxSkinValentine,
  dxSkinXmas2008Blue;
type
  TfrmFilterPopTip = class(TForm)
    btn1: TcxButton;
    btn2: TcxButton;
    btn3: TcxButton;
    cxgrpbx1: TcxGroupBox;
    lbl1: TcxLabel;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ShowInfo(Caption:string;info:string);
    procedure AlignButtons;
  end;
var
  frmFilterPopTip: TfrmFilterPopTip;
implementation
{$R *.dfm}
{ TfrmFilterPopTip }
procedure TfrmFilterPopTip.AlignButtons;
begin
  btn3.Visible:=False;
  btn1.Left:=(Self.Width-btn1.Width)div 2 -20;
  btn2.Left:=btn1.Left+btn1.Width +40;
end;
procedure TfrmFilterPopTip.ShowInfo(Caption:string;info: string);
begin
  Self.Caption:=Caption;
  lbl1.Caption:=info;
end;
end.

						