edits1.pas

themeengine6源码

unit edits1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  te_controls;

type
  TfrmEdits1 = class(TForm)
    SeSkinForm1: TTeForm;
    SeSkinGroupBox2: TTeGroupBox;
    SeSkinLabel2: TTeLabel;
    SeSkinLabel3: TTeLabel;
    SeSkinLabel4: TTeLabel;
    SeSkinLabel5: TTeLabel;
    SeSkinLabel7: TTeLabel;
    SeSkinLabel8: TTeLabel;
    SeSkinLabel9: TTeLabel;
    SeSkinLabel10: TTeLabel;
    SeSkinSpinEdit2: TTeSpinEdit;
    SeSkinSpinEdit3: TTeSpinEdit;
    SeSkinSpinEdit4: TTeSpinEdit;
    SeSkinSpinEdit5: TTeSpinEdit;
    SeSkinSpinEdit7: TTeSpinEdit;
    SeSkinSpinEdit8: TTeSpinEdit;
    SeSkinSpinButton1: TTeSpinButton;
    SeSkinGroupBox1: TTeGroupBox;
    SeSkinEditButton1: TTeEditButton;
    SeSkinLabel1: TTeLabel;
    SeSkinEditButton2: TTeEditButton;
    SeSkinButton1: TTeButton;
    SeSkinMessage1: TTeMessage;
    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.