+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : فيما يخص number only (/showthread.php?tid=11148)
فيما يخص number only - salim488 - 20-11-2020
السلام عليكم وضعت مكون edit وفعلت خاصية number only والتي تسمح بكتابة الارقام فقط وعند تجربته كتب لي حرف واحد وبعدها لايقبل الا ارقام هل هناك كود يمنع كتابة النص في edit
السؤال الثاني اريد كود يمنع كتابة الارقام في edit
RE: فيما يخص number only - ALG2009 - 20-11-2020
(20-11-2020, 10:18 AM)salim488 كتب : هل هناك كود يمنع كتابة النص في edit
السؤال الثاني اريد كود يمنع كتابة الارقام في edit
وعليكم السلام
الإجابة على السؤال الأول .أما السؤال الثاني يمكن إستنتاجه من الكود الأول
كود :
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in [#8, '0'..'9']) then // #8تعني Backspace لتستطيع الحذف
begin
ShowMessage('يجب إدخال الأرقم فقط');
// Key := #0;
end;
end;RE: فيما يخص number only - larbiparadox - 20-11-2020
وعليك السلام
في خصائص الاحداث لـ edit في KeyPress
كود :
Case Key of
'0'..'9',#8,#13 :
else
key:=#0;
end;RE: فيما يخص number only - salim488 - 21-11-2020
هل تعمل مع اللغة العربية جربتها ولم تعمل
كذالك فهمت فقط ان key تعني لوحة entre لكن #8#13 لم افهمها ممكن شرح
RE: فيما يخص number only - larbiparadox - 21-11-2020
(21-11-2020, 05:38 PM)salim488 كتب : هل تعمل مع اللغة العربية جربتها ولم تعمل
كذالك فهمت فقط ان key تعني لوحة entre لكن #8#13 لم افهمها ممكن شرح
لما نقول key رمز لكل قفل ، مثال #13 هو خاص بالقفل enter و #8 هو قفل الحذف للخلف
هذه بعضها و بالنسبة للحروف ايضا لها رقم مثل A هي 65 و B هي 66
كود :
Key Codes
vk_BackSpace = 8
vk_Tab = 9
vk_Return = 13
vk_Command = 15 M
vk_Shift = 16
vk_Control = 17
vk_Alt = 18
vk_Pause = 19
vk_CapsLock = 20
vk_Escape = 27
vk_Space = 32
vk_PageUp = 33
vk_PageDown = 34
vk_End = 35
vk_Home = 36
vk_Left = 37
vk_Up = 38
vk_Right = 39
vk_Down = 40
vk_PrintScreen = 44
vk_Insert = 45
vk_Delete = 46
vk_0 = 48
vk_1 = 49
vk_2 = 50
vk_3 = 51
vk_4 = 52
vk_5 = 53
vk_6 = 54
vk_7 = 55
vk_8 = 56
vk_9 = 57
vk_A = 65
vk_B = 66
vk_C = 67
vk_D = 68
vk_E = 69
vk_F = 70
vk_G = 71
vk_H = 72
vk_I = 73
vk_J = 74
vk_K = 75
vk_L = 76
vk_M = 77
vk_N = 78
vk_O = 79
vk_P = 80
vk_Q = 81
vk_R = 82
vk_S = 83
vk_T = 84
vk_U = 85
vk_V = 86
vk_W = 87
vk_X = 88
vk_Y = 89
vk_Z = 90
vk_LWin = 91 *
vk_RWin = 92 *
vk_Apps = 93 *
vk_NumPad0 = 96
vk_NumPad1 = 97
vk_NumPad2 = 98
vk_NumPad3 = 99
vk_NumPad4 = 100
vk_NumPad5 = 101
vk_NumPad6 = 102
vk_NumPad7 = 103
vk_NumPad8 = 104
vk_NumPad9 = 105
vk_Multiply = 106
vk_Add = 107
vk_Subtract = 109
vk_Decimal = 110
vk_Divide = 111
vk_F1 = 112
vk_F2 = 113
vk_F3 = 114
vk_F4 = 115
vk_F5 = 116
vk_F6 = 117
vk_F7 = 118
vk_F8 = 119
vk_F9 = 120
vk_F10 = 121
vk_F11 = 122
vk_F12 = 123
vk_F13 = 124
vk_F14 = 125
vk_F15 = 126
vk_F16 = 127
vk_NumLock = 144
vk_ScrollLock = 145
vk_LShift = 160 **
vk_RShift = 161 **
vk_LControl = 162 **
vk_RControl = 163 **
vk_LAlt = 164 **
vk_RAlt = 165 **
vk_SemiColon = 186
vk_Equals = 187
vk_Comma = 188
vk_UnderScore = 189
vk_Period = 190
vk_Slash = 191
vk_BackSlash = 220
vk_RightBrace = 221
vk_LeftBrace = 219
vk_Apostrophe = 222