admin管理员组文章数量:1630572
unit Frm_SoftKeyBoard;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, cxLookAndFeelPainters, cxLabel, cxControls, cxContainer,
cxEdit, cxTextEdit, StdCtrls, cxButtons, ExtCtrls, RzPanel;
type
TSoftKeyBoardFrm = class(TForm)
RzPanel1: TRzPanel;
pnl1: TPanel;
edt_InputText: TcxTextEdit;
cxlbl1: TcxLabel;
btn_Ok: TcxButton;
pnl3: TPanel;
btn_No: TcxButton;
pnl_LeftKeyBoard: TPanel;
pnl_1: TPanel;
pnl_2: TPanel;
pnl_4: TPanel;
pnl_5: TPanel;
pnl_6: TPanel;
pnl_7: TPanel;
pnl_8: TPanel;
pnl_9: TPanel;
pnl_0: TPanel;
pnl_3: TPanel;
pnl_Q: TPanel;
pnl_W: TPanel;
pnl_E: TPanel;
pnl_R: TPanel;
pnl_T: TPanel;
pnl_Y: TPanel;
pnl_U: TPanel;
pnl_I: TPanel;
pnl_O: TPanel;
pnl_P: TPanel;
pnl_A: TPanel;
pnl_S: TPanel;
pnl_D: TPanel;
pnl_F: TPanel;
pnl_G: TPanel;
pnl_H: TPanel;
pnl_J: TPanel;
pnl_K: TPanel;
pnl_L: TPanel;
pnl_Z: TPanel;
pnl_X: TPanel;
pnl_C: TPanel;
pnl_V: TPanel;
pnl_B: TPanel;
pnl_N: TPanel;
pnl_M: TPanel;
pnl_Shift: TPanel;
pnl_Point: TPanel;
pnl_RightKeyBoard: TPanel;
pnl_R1: TPanel;
pnl_R2: TPanel;
pnl_R3: TPanel;
pnl_R4: TPanel;
pnl_R5: TPanel;
pnl_R6: TPanel;
pnl_R7: TPanel;
pnl_R8: TPanel;
pnl_R9: TPanel;
pnl_R0: TPanel;
pnl_RPoint: TPanel;
btn_Ok1: TcxButton;
pnl_RDel: TPanel;
procedure FormShow(Sender: TObject);
procedure btn_NoClick(Sender: TObject);
procedure btn_OkClick(Sender: TObject);
procedure pnl_ShiftClick(Sender: TObject);
procedure pnl_PointClick(Sender: TObject);
private
{ Private declarations }
fv_bRet: Boolean;
fv_sInputText: string;
fv_sKeySoftType: string;
function ConvertBigAndSmall(sType: string): Boolean;
procedure doClickTpanel(Sender: TObject);
public
{ Public declarations }
end;
var
SoftKeyBoardFrm: TSoftKeyBoardFrm;
function OpenSoftKeyBoardFrm(const sKeySoftType: string; var sInputText: string): Boolean;
implementation
{$R *.dfm}
function OpenSoftKeyBoardFrm(const sKeySoftType: string; var sInputText: string): Boolean;
var
SoftKeyBoardFrm: TSoftKeyBoardFrm;
begin
Result := False;
sInputText := '';
SoftKeyBoardFrm := TSoftKeyBoardFrm.Create(nil);
try
with SoftKeyBoardFrm do
begin
fv_sKeySoftType := sKeySoftType;
ShowModal;
sInputText := fv_sInputText;
Result := fv_bRet;
end;
finally
FreeAndNil(SoftKeyBoardFrm);
end;
end;
procedure TSoftKeyBoardFrm.FormShow(Sender: TObject);
var
i: Integer;
lv_sTmp: string;
begin
if LowerCase(fv_sKeySoftType) = LowerCase('ktQWERTY') then // ktQWERTY ktNUMERIC
begin
pnl_LeftKeyBoard.Visible := True;
pnl_RightKeyBoard.Visible := False;
Self.Width := Self.Width - pnl_RightKeyBoard.Width;
if Copy(fv_sKeySoftType,Length(fv_sKeySoftType),1) = 'y' then
edt_InputText.Properties.EchoMode := eemPassword;
for i := 0 to pnl_LeftKeyBoard.ControlCount-1 do begin
if pnl_LeftKeyBoard.Controls[i] is TPanel then
begin
lv_sTmp := TPanel(pnl_LeftKeyBoard.Controls[i]).Hint;
if (Length(lv_sTmp) = 1) and (lv_sTmp[1] in ['0'..'9','a'..'z','A'..'Z']) then
TPanel(pnl_LeftKeyBoard.Controls[i]).OnClick := doClickTpanel;
end;
end;
end else if LowerCase(fv_sKeySoftType) = LowerCase('ktNUMERIC') then begin
pnl_LeftKeyBoard.Visible := False;
pnl_RightKeyBoard.Visible := True;
Self.Width := Self.Width - pnl_LeftKeyBoard.Width;
edt_InputText.Width := edt_InputText.Width - 270;
btn_Ok.Visible := False;
btn_Ok1.Visible := True;
btn_No.Left := btn_No.Left - 250;
pnl_RPoint.Visible := Copy(fv_sKeySoftType,Length(fv_sKeySoftType),1) = 'c';
for i := 0 to pnl_RightKeyBoard.ControlCount-1 do begin
if pnl_RightKeyBoard.Controls[i] is TPanel then
begin
lv_sTmp := TPanel(pnl_RightKeyBoard.Controls[i]).Hint;
if (Length(lv_sTmp) = 1) and (lv_sTmp[1] in ['0'..'9','.']) then
TPanel(pnl_RightKeyBoard.Controls[i]).OnClick := doClickTpanel;
end;
end;
end else begin
pnl_LeftKeyBoard.Visible := False;
pnl_RightKeyBoard.Visible := False;
end;
end;
procedure TSoftKeyBoardFrm.btn_NoClick(Sender: TObject);
begin
fv_sInputText := '';
fv_bRet := False;
Close;
end;
procedure TSoftKeyBoardFrm.btn_OkClick(Sender: TObject);
begin
fv_sInputText := Trim(edt_InputText.Text);
fv_bRet := True;
Close;
end;
function TSoftKeyBoardFrm.ConvertBigAndSmall(sType: string): Boolean;
var
i: Integer;
lv_sTmp,lv_sNmae: string;
begin
for i := 0 to pnl_LeftKeyBoard.ControlCount-1 do begin
if pnl_LeftKeyBoard.Controls[i] is TPanel then
begin
lv_sTmp := TPanel(pnl_LeftKeyBoard.Controls[i]).Hint;
lv_sNmae := TPanel(pnl_LeftKeyBoard.Controls[i]).Name;
if (Length(lv_sTmp) = 1) and (lv_sTmp[1] in ['a'..'z','A'..'Z']) then
begin
if sType = 'SHIFT' then
TPanel(pnl_LeftKeyBoard.Controls[i]).Caption := UpperCase(TPanel(pnl_LeftKeyBoard.Controls[i]).Hint)
else
TPanel(pnl_LeftKeyBoard.Controls[i]).Caption := LowerCase(TPanel(pnl_LeftKeyBoard.Controls[i]).Hint);
end;
end;
end;
end;
procedure TSoftKeyBoardFrm.pnl_ShiftClick(Sender: TObject);
begin
if pnl_Shift.Caption = 'SHIFT' then
begin
pnl_Shift.Caption := 'shift';
ConvertBigAndSmall('shift');
end else begin
pnl_Shift.Caption := 'SHIFT';
ConvertBigAndSmall('SHIFT');
end;
end;
procedure TSoftKeyBoardFrm.doClickTpanel(Sender: TObject);
var
lv_sTmp: string;
begin
if (Sender is TPanel) then
begin
lv_sTmp := TPanel(Sender).Hint;
if (Length(lv_sTmp)=1) and (lv_sTmp[1] in ['0'..'9','a'..'z','.','A'..'Z']) then
begin
edt_InputText.Text := edt_InputText.Text + TPanel(Sender).Caption;
edt_InputText.SelStart := Length(edt_InputText.Text);
end;
end;
end;
procedure TSoftKeyBoardFrm.pnl_PointClick(Sender: TObject);
var
lv_nStart: Integer;
begin
if Trim(edt_InputText.Text) <> '' then
begin
lv_nStart := edt_InputText.SelStart;
edt_InputText.Text := Copy(edt_InputText.Text,1,lv_nStart-1) + Copy(edt_InputText.Text,lv_nStart+1,Length(edt_InputText.Text)-lv_nStart);
edt_InputText.SelStart := lv_nStart-1;
end;
end;
end.
object SoftKeyBoardFrm: TSoftKeyBoardFrm
Left = 384
Top = 190
BorderIcons = []
BorderStyle = bsSingle
Caption = '【触摸软键盘】'
ClientHeight = 431
ClientWidth = 1103
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object RzPanel1: TRzPanel
Left = 0
Top = 0
Width = 1103
Height = 431
Align = alClient
BorderColor = clFuchsia
BorderWidth = 2
TabOrder = 0
object pnl1: TPanel
Left = 4
Top = 4
Width = 1095
Height = 60
Align = alTop
TabOrder = 0
object edt_InputText: TcxTextEdit
Left = 143
Top = 4
ParentFont = False
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -40
Style.Font.Name = '黑体'
Style.Font.Style = [fsBold]
TabOrder = 0
Width = 450
end
object cxlbl1: TcxLabel
Left = 15
Top = 6
Caption = '结果:'
ParentFont = False
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -40
Style.Font.Name = '黑体'
Style.Font.Style = [fsBold]
end
object btn_Ok: TcxButton
Left = 607
Top = 4
Width = 113
Height = 49
Caption = '确定'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -33
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = btn_OkClick
LookAndFeel.Kind = lfOffice11
end
end
object pnl3: TPanel
Left = 4
Top = 367
Width = 1095
Height = 60
Align = alBottom
TabOrder = 1
object btn_No: TcxButton
Left = 440
Top = 6
Width = 113
Height = 49
Caption = '关闭'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -33
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = btn_NoClick
LookAndFeel.Kind = lfOffice11
end
object btn_Ok1: TcxButton
Left = 31
Top = 4
Width = 113
Height = 49
Caption = '确定'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -33
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
Visible = False
OnClick = btn_OkClick
LookAndFeel.Kind = lfOffice11
end
end
object pnl_LeftKeyBoard: TPanel
Left = 4
Top = 64
Width = 754
Height = 303
Align = alLeft
TabOrder = 2
object pnl_1: TPanel
Left = 16
Top = 8
Width = 70
Height = 70
Hint = '1'
Caption = '1'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object pnl_2: TPanel
Left = 88
Top = 8
Width = 70
Height = 70
Hint = '2'
Caption = '2'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object pnl_4: TPanel
Left = 232
Top = 8
Width = 70
Height = 70
Hint = '4'
Caption = '4'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
object pnl_5: TPanel
Left = 304
Top = 8
Width = 70
Height = 70
Hint = '5'
Caption = '5'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
end
object pnl_6: TPanel
Left = 376
Top = 8
Width = 70
Height = 70
Hint = '6'
Caption = '6'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
end
object pnl_7: TPanel
Left = 448
Top = 8
Width = 70
Height = 70
Hint = '7'
Caption = '7'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
end
object pnl_8: TPanel
Left = 520
Top = 8
Width = 70
Height = 70
Hint = '8'
Caption = '8'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
end
object pnl_9: TPanel
Left = 592
Top = 8
Width = 70
Height = 70
Hint = '9'
Caption = '9'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
end
object pnl_0: TPanel
Left = 664
Top = 8
Width = 70
Height = 70
Hint = '0'
Caption = '0'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
end
object pnl_3: TPanel
Left = 160
Top = 8
Width = 70
Height = 70
Hint = '3'
Caption = '3'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 9
end
object pnl_Q: TPanel
Left = 16
Top = 80
Width = 70
Height = 70
Hint = 'Q'
Caption = 'Q'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 10
end
object pnl_W: TPanel
Left = 88
Top = 80
Width = 70
Height = 70
Hint = 'W'
Caption = 'W'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 11
end
object pnl_E: TPanel
Left = 160
Top = 80
Width = 70
Height = 70
Hint = 'E'
Caption = 'E'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 12
end
object pnl_R: TPanel
Left = 232
Top = 80
Width = 70
Height = 70
Hint = 'R'
Caption = 'R'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 13
end
object pnl_T: TPanel
Left = 304
Top = 80
Width = 70
Height = 70
Hint = 'T'
Caption = 'T'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 14
end
object pnl_Y: TPanel
Left = 376
Top = 80
Width = 70
Height = 70
Hint = 'Y'
Caption = 'Y'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 15
end
object pnl_U: TPanel
Left = 448
Top = 80
Width = 70
Height = 70
Hint = 'U'
Caption = 'U'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 16
end
object pnl_I: TPanel
Left = 520
Top = 80
Width = 70
Height = 70
Hint = 'I'
Caption = 'I'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 17
end
object pnl_O: TPanel
Left = 592
Top = 80
Width = 70
Height = 70
Hint = 'O'
Caption = 'O'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 18
end
object pnl_P: TPanel
Left = 664
Top = 80
Width = 70
Height = 70
Hint = 'P'
Caption = 'P'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 19
end
object pnl_A: TPanel
Left = 54
Top = 152
Width = 70
Height = 70
Hint = 'A'
Caption = 'A'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 20
end
object pnl_S: TPanel
Left = 126
Top = 152
Width = 70
Height = 70
Hint = 'S'
Caption = 'S'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 21
end
object pnl_D: TPanel
Left = 200
Top = 152
Width = 70
Height = 70
Hint = 'D'
Caption = 'D'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 22
end
object pnl_F: TPanel
Left = 272
Top = 152
Width = 70
Height = 70
Hint = 'F'
Caption = 'F'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 23
end
object pnl_G: TPanel
Left = 344
Top = 152
Width = 70
Height = 70
Hint = 'G'
Caption = 'G'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 24
end
object pnl_H: TPanel
Left = 416
Top = 152
Width = 70
Height = 70
Hint = 'H'
Caption = 'H'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 25
end
object pnl_J: TPanel
Left = 488
Top = 152
Width = 70
Height = 70
Hint = 'J'
Caption = 'J'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 26
end
object pnl_K: TPanel
Left = 560
Top = 152
Width = 70
Height = 70
Hint = 'K'
Caption = 'K'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 27
end
object pnl_L: TPanel
Left = 632
Top = 152
Width = 70
Height = 70
Hint = 'L'
Caption = 'L'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 28
end
object pnl_Z: TPanel
Left = 127
Top = 224
Width = 70
Height = 70
Hint = 'Z'
Caption = 'Z'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 29
end
object pnl_X: TPanel
Left = 199
Top = 224
Width = 70
Height = 70
Hint = 'X'
Caption = 'X'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 30
end
object pnl_C: TPanel
Left = 271
Top = 224
Width = 70
Height = 70
Hint = 'C'
Caption = 'C'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 31
end
object pnl_V: TPanel
Left = 343
Top = 224
Width = 70
Height = 70
Hint = 'V'
Caption = 'V'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 32
end
object pnl_B: TPanel
Left = 415
Top = 224
Width = 70
Height = 70
Hint = 'B'
Caption = 'B'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 33
end
object pnl_N: TPanel
Left = 487
Top = 224
Width = 70
Height = 70
Hint = 'N'
Caption = 'N'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 34
end
object pnl_M: TPanel
Left = 559
Top = 224
Width = 70
Height = 70
Hint = 'M'
Caption = 'M'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 35
end
object pnl_Shift: TPanel
Left = 16
Top = 224
Width = 108
Height = 70
Hint = 'Shift'
Caption = 'SHIFT'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -27
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 36
OnClick = pnl_ShiftClick
end
object pnl_Point: TPanel
Left = 632
Top = 224
Width = 102
Height = 70
Hint = 'DEL'
Caption = 'Del'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 37
OnClick = pnl_PointClick
end
end
object pnl_RightKeyBoard: TPanel
Left = 758
Top = 64
Width = 339
Height = 303
Align = alLeft
TabOrder = 3
object pnl_R1: TPanel
Left = 32
Top = 8
Width = 70
Height = 70
Hint = '1'
Caption = '1'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object pnl_R2: TPanel
Left = 129
Top = 8
Width = 70
Height = 70
Hint = '2'
Caption = '2'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object pnl_R3: TPanel
Left = 227
Top = 8
Width = 70
Height = 70
Hint = '3'
Caption = '3'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
object pnl_R4: TPanel
Left = 32
Top = 80
Width = 70
Height = 70
Hint = '4'
Caption = '4'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
end
object pnl_R5: TPanel
Left = 129
Top = 80
Width = 70
Height = 70
Hint = '5'
Caption = '5'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
end
object pnl_R6: TPanel
Left = 227
Top = 80
Width = 70
Height = 70
Hint = '6'
Caption = '6'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
end
object pnl_R7: TPanel
Left = 34
Top = 153
Width = 70
Height = 70
Hint = '7'
Caption = '7'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
end
object pnl_R8: TPanel
Left = 129
Top = 152
Width = 70
Height = 70
Hint = '8'
Caption = '8'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
end
object pnl_R9: TPanel
Left = 227
Top = 151
Width = 70
Height = 70
Hint = '9'
Caption = '9'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
end
object pnl_R0: TPanel
Left = 129
Top = 224
Width = 70
Height = 70
Hint = '0'
Caption = '0'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 9
end
object pnl_RPoint: TPanel
Left = 35
Top = 225
Width = 70
Height = 70
Hint = '.'
Caption = '.'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 10
end
object pnl_RDel: TPanel
Left = 227
Top = 223
Width = 70
Height = 70
Hint = 'DEL'
Caption = 'Del'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = '黑体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 11
OnClick = pnl_PointClick
end
end
end
end
本文标签: 自定义键盘delphiSoftKeyBoard
版权声明:本文标题:Delphi SoftKeyBoard自定义软键盘 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://m.elefans.com/dongtai/1729079686a1185398.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论