+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اريد تصويب هذا الكود من فضلكم (/showthread.php?tid=10585)
اريد تصويب هذا الكود من فضلكم - daho147 - 21-12-2019
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
RE: اريد تصويب هذا الكود من فضلكم - محمد عبد العزيز - 22-12-2019
السلام عليكم
رغم ان سؤالك غير مفهوم ! جرب هذا
كود :
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;RE: اريد تصويب هذا الكود من فضلكم - larbiparadox - 22-12-2019
كود :
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;