اريد تصويب هذا الكود من فضلكم
#1
PHP كود :
procedure TForm5.ComboBox2Change(SenderTObject);
    var x:string;
    begin
    x
:= comboBox2.Text;
if (
x='ãÚÑæÝíä Ïæä ãáÝ'then
form5
.edit36.Visible:=true;
form5.GroupBox49.Visible:=true;
form5.edit37.Visible:=true;
form5.GroupBox50.Visible:=true;
  end
  
else
  begin
form5
.edit36.Visible:=false;
form5.GroupBox49.Visible:=false;
form5.edit37.Visible:=false;
form5.GroupBox50.Visible:=false;
  end

ارجوا تصويب هذا الكود فان الكيرسور يقف عند else
الرد
#2

السلام عليكم
رغم ان سؤالك غير مفهوم ! جرب هذا

كود :
procedure TForm5.ComboBox2Change(Sender: TObject);
var x: Boolean;
begin
x:= comboBox2.Text='ãÚÑæÝíä Ïæä ãáÝ';
form5.edit36.Visible:=x;
form5.GroupBox49.Visible:=x;
form5.edit37.Visible:=x;
form5.GroupBox50.Visible:=x;
end;
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
الرد
#3
كود :
procedure TForm5.ComboBox2Change(Sender: TObject);
    var x:string;
    begin
    x:= comboBox2.Text;
if (x='ãÚÑæÝíä Ïæä ãáÝ') then
Begin
form5.edit36.Visible:=true;
form5.GroupBox49.Visible:=true;
form5.edit37.Visible:=true;
form5.GroupBox50.Visible:=true;
  end
  else
  begin
form5.edit36.Visible:=false;
form5.GroupBox49.Visible:=false;
form5.edit37.Visible:=false;
form5.GroupBox50.Visible:=false;
  end; 
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف