?? edits1.pas
字號:
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.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -