delphi4arab منتديات دلفي للعرب

PHP كود :
procedure TForm5.ComboBox2Change(Sender: TObject);
    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

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

كود :
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;

كود :
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; 

daho147

محمد عبد العزيز

larbiparadox