07-10-2009, 06:34 PM
18-10-2009, 10:55 PM
السلام
الطريقة التي خطرت في بالي هي التعليمة التالية :
اكتبها في البرنامج ولا تنسى تغيير نص رسالة الخطأ .
ولا تنساني من صالح دعائك .
الطريقة التي خطرت في بالي هي التعليمة التالية :
كود :
var
Form1: TForm1;
Tow : Boolean = False;
implementation
{$R *.dfm}
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Tow = True Then
If Key = '2' Then
ShowMessage('áÇ íÌÈ ÃßËÑ ãä ãÑøÉ');
If Key = '2' Then
Tow := True;
If Tow = True Then
end;ولا تنساني من صالح دعائك .
19-10-2009, 01:04 PM
اكتب الكود في حدث
onkeypress
onkeypress
كود :
var
x : integer;
begin
x:=pos(key,Edit1.Text);
if (x>0 ) Then
showmessage('This Character is found at location# : ' + inttostr(x));
end;