?? uab316a.pas
字號:
unit UAB316A;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DosMove, StdCtrls, xpEdit, ExtCtrls, Buttons;
type
TFmAB316A = class(TForm)
Label1: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
BitBtn1: TBitBtn;
Panel1: TPanel;
Label2: TLabel;
xpEdit1: TxpEdit;
DosMove1: TDosMove;
Label3: TLabel;
procedure FormCreate(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FmAB316A: TFmAB316A;
implementation
{$R *.dfm}
procedure TFmAB316A.FormCreate(Sender: TObject);
begin
Height := 150;
end;
procedure TFmAB316A.RadioButton2Click(Sender: TObject);
begin
If RadioButton2.Checked Then
Begin
Panel1.Visible := True;
FmAB316A.BitBtn1.Default := False;
FmAB316A.Height := 375;
End;
end;
procedure TFmAB316A.RadioButton1Click(Sender: TObject);
begin
If RadioButton1.Checked Then
Begin
Panel1.Visible := False;
FmAB316A.BitBtn1.Default := True;
FmAB316A.Height := 150;
End;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -