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

Email服务器

开发平台:

Delphi

  1. unit ufrmCloseTip;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons, ExtCtrls,
  6.   cxRadioGroup, cxLabel, cxControls, cxContainer, cxEdit, cxGroupBox,
  7.   dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee,
  8.   {dxSkinDarkRoom,} dxSkinDarkSide, {dxSkinFoggy,} dxSkinGlassOceans,
  9.   dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
  10.   dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
  11.   dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
  12.   dxSkinOffice2007Silver, dxSkinPumpkin, {dxSkinSeven,} {dxSkinSharp,}
  13.   dxSkinSilver, {dxSkinSpringTime,} dxSkinStardust, dxSkinSummer2008,
  14.   dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
  15.   dxGDIPlusClasses;
  16. type
  17.   TfrmCloseTip = class(TForm)
  18.     cxGroupBox1: TcxGroupBox;
  19.     lblTip: TcxLabel;
  20.     cxLabel2: TcxLabel;
  21.     rbMini: TcxRadioButton;
  22.     rbExit: TcxRadioButton;
  23.     pnl1: TPanel;
  24.     btn1: TcxButton;
  25.     img1: TImage;
  26.     procedure btn1Click(Sender: TObject);
  27.   private
  28.     { Private declarations }
  29.   public
  30.     { Public declarations }
  31.   end;
  32. var
  33.   frmCloseTip: TfrmCloseTip;
  34. implementation
  35. {$R *.dfm}
  36. procedure TfrmCloseTip.btn1Click(Sender: TObject);
  37. begin
  38.   if rbMini.Checked then
  39.     ModalResult:=mrOk
  40.   else
  41.     ModalResult:=mrCancel;  
  42. end;
  43. end.