?? createchr.pas
字號:
unit CreateChr;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, Buttons;
type
TFrmCreateChr = class(TForm)
EdUserId: TEdit;
EdChrName: TEdit;
Label1: TLabel;
Label2: TLabel;
BitBtnOK: TBitBtn;
BitBtnCancel: TBitBtn;
Label3: TLabel;
EditSelectID: TEdit;
procedure FormShow(Sender: TObject);
private
function GetInputInfo(): Boolean;
{ Private declarations }
public
sUserId: string;
sChrName: string;
nSelectID: Integer;
function IncputChrInfo(): Boolean;
{ Public declarations }
end;
var
FrmCreateChr: TFrmCreateChr;
implementation
uses HUtil32;
{$R *.DFM}
procedure TFrmCreateChr.FormShow(Sender: TObject);
begin
EdUserId.SetFocus;
end;
function TFrmCreateChr.IncputChrInfo: Boolean; //0x0049C65C
begin
sUserId := '';
sChrName := '';
Result := GetInputInfo;
end;
function TFrmCreateChr.GetInputInfo(): Boolean;
begin
Result := False;
EdUserId.Text := sUserId;
EdChrName.Text := sChrName;
if Self.ShowModal = mrOK then begin
sUserId := Trim(EdUserId.Text);
sChrName := Trim(EdChrName.Text);
nSelectID := Str_ToInt(Trim(EditSelectID.Text), -1);
if nSelectID < 0 then begin
MessageBox(Handle, '選擇ID輸入不正確?。。?#039;, '確認信息', MB_OK + MB_ICONEXCLAMATION);
Exit;
end;
Result := True;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -