Email服务器

开发平台：

Delphi

ufrmCloseTip.~pas：源码内容

							unit ufrmCloseTip;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons, ExtCtrls,
  cxRadioGroup, 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,
  dxGDIPlusClasses;
type
  TfrmCloseTip = class(TForm)
    cxGroupBox1: TcxGroupBox;
    lblTip: TcxLabel;
    cxLabel2: TcxLabel;
    rbMini: TcxRadioButton;
    rbExit: TcxRadioButton;
    pnl1: TPanel;
    btn1: TcxButton;
    img1: TImage;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmCloseTip: TfrmCloseTip;
implementation
{$R *.dfm}
procedure TfrmCloseTip.btn1Click(Sender: TObject);
begin
  if rbMini.Checked then
    ModalResult:=mrOk
  else
    ModalResult:=mrCancel;  
end;
end.

						