11-04-2010, 03:08 PM
وعليكم السلام ورحمة الله
شيء مثل هذا:
.
شيء مثل هذا:
كود :
var
NumTry: Byte = 0;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text + Edit2.Text = 'ab' then
Form2.Show
else
begin
Inc(NumTry);
if NumTry > 3 then
ShowMessage(IntToStr(NumTry));
end;
end;
اللهم احقن دماء المسلمين، لا تنسوهم بالدعاء...