ufrmFilterPopTip.pas
上传用户:yjb1804
上传日期:2021-01-30
资源大小:3105k
文件大小:1k
源码类别:

Email服务器

开发平台:

Delphi

  1. unit ufrmFilterPopTip;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons, cxLabel,
  6.   cxControls, cxContainer, cxEdit, cxGroupBox, dxSkinsCore, dxSkinBlack,
  7.   dxSkinBlue, dxSkinCaramel, dxSkinCoffee, {dxSkinDarkRoom,} dxSkinDarkSide,
  8.   {dxSkinFoggy,} dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
  9.   dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
  10.   dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  11.   dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinPumpkin, {dxSkinSeven,}
  12.   {dxSkinSharp,} dxSkinSilver, {dxSkinSpringTime,} dxSkinStardust,
  13.   dxSkinSummer2008, dxSkinsDefaultPainters, dxSkinValentine,
  14.   dxSkinXmas2008Blue;
  15. type
  16.   TfrmFilterPopTip = class(TForm)
  17.     btn1: TcxButton;
  18.     btn2: TcxButton;
  19.     btn3: TcxButton;
  20.     cxgrpbx1: TcxGroupBox;
  21.     lbl1: TcxLabel;
  22.   private
  23.     { Private declarations }
  24.   public
  25.     { Public declarations }
  26.     procedure ShowInfo(Caption:string;info:string);
  27.     procedure AlignButtons;
  28.   end;
  29. var
  30.   frmFilterPopTip: TfrmFilterPopTip;
  31. implementation
  32. {$R *.dfm}
  33. { TfrmFilterPopTip }
  34. procedure TfrmFilterPopTip.AlignButtons;
  35. begin
  36.   btn3.Visible:=False;
  37.   btn1.Left:=(Self.Width-btn1.Width)div 2 -20;
  38.   btn2.Left:=btn1.Left+btn1.Width +40;
  39. end;
  40. procedure TfrmFilterPopTip.ShowInfo(Caption:string;info: string);
  41. begin
  42.   Self.Caption:=Caption;
  43.   lbl1.Caption:=info;
  44. end;
  45. end.