edits1.pas

来自「强大的皮肤控件 能做出美观的界面」· PAS 代码 · 共 64 行

unit edits1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  se_controls, ksskinmessages, KsSkinForms, KsSkinButtons,
  ksskininplaceedit, KsSkinSpinButtons, KsSkinSpinEdit, KsSkinLabels,
  KsSkinGroupBoxs;

type
  TfrmEdits1 = class(TForm)
    SeSkinForm1: TSeSkinForm;
    SeSkinGroupBox2: TSeSkinGroupBox;
    SeSkinLabel2: TSeSkinLabel;
    SeSkinLabel3: TSeSkinLabel;
    SeSkinLabel4: TSeSkinLabel;
    SeSkinLabel5: TSeSkinLabel;
    SeSkinLabel7: TSeSkinLabel;
    SeSkinLabel8: TSeSkinLabel;
    SeSkinLabel9: TSeSkinLabel;
    SeSkinLabel10: TSeSkinLabel;
    SeSkinSpinEdit2: TSeSkinSpinEdit;
    SeSkinSpinEdit3: TSeSkinSpinEdit;
    SeSkinSpinEdit4: TSeSkinSpinEdit;
    SeSkinSpinEdit5: TSeSkinSpinEdit;
    SeSkinSpinEdit7: TSeSkinSpinEdit;
    SeSkinSpinEdit8: TSeSkinSpinEdit;
    SeSkinSpinButton1: TSeSkinSpinButton;
    SeSkinGroupBox1: TSeSkinGroupBox;
    SeSkinEditButton1: TSeSkinEditButton;
    SeSkinLabel1: TSeSkinLabel;
    SeSkinEditButton2: TSeSkinEditButton;
    SeSkinButton1: TSeSkinButton;
    SeSkinMessage1: TSeSkinMessage;
    procedure SeSkinEditButton2ButtonClick(Sender: TObject);
    procedure SeSkinEditButton1ButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmEdits1: TfrmEdits1;

implementation

uses Main;

{$R *.dfm}

procedure TfrmEdits1.SeSkinEditButton2ButtonClick(Sender: TObject);
begin
  SeSkinEditButton2.Text := SeSkinMessage1.InputBox('Sample','Write text here!','Custom input')
end;

procedure TfrmEdits1.SeSkinEditButton1ButtonClick(Sender: TObject);
begin
  SeSkinMessage1.ShowMessage('You clicked on the customizable inplace button.');
end;

end.