+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية التعامل مع CheckBox و اضافته memo (/showthread.php?tid=11817)
كيفية التعامل مع CheckBox و اضافته memo - SOFIANE09 - 15-02-2022
السلام اخوني لدي مشكلة و المتمثلة في انه لي 04 CheckBox و كثكخ و اريد اضافية اثنين من CheckBox الى memo بشرط تكون في نفس السطر و تتخللهما فاصلة بين CheckBox و CheckBox بمعنى( CheckBox 2, CheckBox)
RE: كيفية التعامل مع CheckBox و اضافته memo - Delphi4Us - 15-02-2022
وعليكم السلام
ولو ان السؤال فيه اخطاء لغوية تجعل منه غير مفهوم مثل كلمة كثلخ ومابعدها ربما افهم انك تريد مثل
كود :
Memo1.lines.add((sener as tcheckbox)).caption + '"'مع الانتباه للكود فربما نسيت شي لانني اكتب بالنقال
RE: كيفية التعامل مع CheckBox و اضافته memo - SOFIANE09 - 16-02-2022
memo.rar (الحجم : 5.35 ك ب / التحميلات : 17)
memo.rar (الحجم : 5.35 ك ب / التحميلات : 17)
السلام اخي لدي مشكلة و المتمثلة في انه لي 04 CheckBox و اريد عند الضغط على اي CheckBox يضاف الى memo بشرط تكون في نفس السطر و تتخللهما فاصلة بين CheckBox و CheckBox بمعنى( CheckBox 2, CheckBox)، و العكس عند رفع التعليم من اي CheckBox تحذف من memo
RE: كيفية التعامل مع CheckBox و اضافته memo - Ndagor - 16-02-2022
جرب الكود
كود :
procedure TForm1.CheckBoxClick(Sender: TObject);
var
LS:TStringlist;
S,ch:string;
Idx:integer;
begin
LS:=TStringlist.Create;
try
Ls.Delimiter:=',';
S:=Memo1.Lines.Text;
LS.DelimitedText:=S;
ch:=TCheckBox(Sender).Caption;
Idx:=LS.IndexOf(ch);
if TCheckBox(Sender).Checked then
begin
if Idx=-1 then
LS.Add(ch);
end
else if Idx<>-1 then
LS.Delete(Idx);
Memo1.Lines.Text := LS.DelimitedText;
finally
LS.Free;
end;
end;