msgs.pas

小区水费管理系统源代码水费收费管理系统 水费收费管理系统

unit msgs;

interface

uses
  Windows, Messages, SysUtils, Forms, Classes, Controls, StdCtrls,
  Dialogs, se_controls, KsSkinForms, ksskinmessages, KsSkinLabels,
  KsSkinButtons, KsSkinListBoxs, KsSkinEdits, KsSkinCheckBoxs,
  KsSkinGroupBoxs, ExtCtrls, KsSkinComboBoxs, KsSkinSpinEdit;

type
  TfrmMsg = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    NgRadioGroup1: TSeSkinRadioGroup;
    NgCheckBox1: TSeSkinCheckBox;
    NgEdit1: TSeSkinEdit;
    NgListBox1: TSeSkinListBox;
    NgMessage1: TSeSkinMessage;
    NgForm1: TSeSkinForm;
    NgButton1: TSeSkinButton;
    NgButton2: TSeSkinButton;
    SeSkinGroupBox1: TSeSkinGroupBox;
    SeSkinLabel1: TSeSkinLabel;
    SeSkinLabel2: TSeSkinLabel;
    SeSkinButton1: TSeSkinButton;
    SeSkinButton2: TSeSkinButton;
    FontDialog1: TFontDialog;
    SeSkinButton3: TSeSkinButton;
    Bevel1: TBevel;
    SeSkinGroupBox2: TSeSkinGroupBox;
    SeSkinComboBox1: TSeSkinComboBox;
    SeSkinLabel3: TSeSkinLabel;
    SeSkinSpinEdit1: TSeSkinSpinEdit;
    procedure FormCreate(Sender: TObject);
    procedure NgButton1Click(Sender: TObject);
    procedure SeSkinButton1Click(Sender: TObject);
    procedure SeSkinButton2Click(Sender: TObject);
    procedure SeSkinButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMsg: TfrmMsg;

implementation

uses Main;

{$R *.DFM}

procedure TfrmMsg.FormCreate(Sender: TObject);
begin
  NgListBox1.State[2] := cbChecked;
end;

procedure TfrmMsg.NgButton1Click(Sender: TObject);
var
  Btns: TMsgDlgButtons;
  i: integer;
begin
  Btns := [];
  for i := 0 to NGListBox1.Items.Count - 1 do
    if NGListBox1.State[i] = cbChecked then
      Btns := Btns + [TMsgDlgBtn(i)];

  NGMessage1.Shadow.Enabled := NGCheckBox1.Checked;
  NGMessage1.Animation.Enabled := SeSkinGroupBox2.Checked;
  NGMessage1.Animation.Effect := TkeEffect(SeSkinComboBox1.ItemIndex);
  NGMessage1.Animation.Time := SeSkinSpinEdit1.AsInteger;

  NGMessage1.MessageDlg(NGEdit1.Text, TMsgDlgType(NGRadioGroup1.ItemIndex), Btns, 0)
end;

procedure TfrmMsg.SeSkinButton1Click(Sender: TObject);
begin
  if FontDialog1.Execute then
  begin
    NgMessage1.MessageFont.Assign(FontDialog1.Font);
    SeSkinLabel1.Font.Assign(FontDialog1.Font);
  end;
end;

procedure TfrmMsg.SeSkinButton2Click(Sender: TObject);
begin
   if FontDialog1.Execute then
   begin
        NgMessage1.ButtonFont.Assign(FontDialog1.Font);
        SeSkinLabel2.Font.Assign(FontDialog1.Font);
   end;
end;

procedure TfrmMsg.SeSkinButton3Click(Sender: TObject);
begin
  NGMessage1.Shadow.Enabled := NGCheckBox1.Checked;
  NGMessage1.Animation.Enabled := SeSkinGroupBox2.Checked;
  NGMessage1.Animation.Effect := TkeEffect(SeSkinComboBox1.ItemIndex);
  NGMessage1.Animation.Time := SeSkinSpinEdit1.AsInteger;

  NgMessage1.InputBox('Sample','Write text here!','Custom input');
end;

end.