15-02-2022, 08:50 PM
السلام اخوني لدي مشكلة و المتمثلة في انه لي 04 CheckBox و كثكخ و اريد اضافية اثنين من CheckBox الى memo بشرط تكون في نفس السطر و تتخللهما فاصلة بين CheckBox و CheckBox بمعنى( CheckBox 2, CheckBox)
15-02-2022, 08:50 PM
15-02-2022, 11:47 PM
وعليكم السلام
ولو ان السؤال فيه اخطاء لغوية تجعل منه غير مفهوم مثل كلمة كثلخ ومابعدها ربما افهم انك تريد مثل
مع جعل حدث oncheckchange لادوات check كلها لحدث واحد تضع فيه هذا الكود
مع الانتباه للكود فربما نسيت شي لانني اكتب بالنقال
ولو ان السؤال فيه اخطاء لغوية تجعل منه غير مفهوم مثل كلمة كثلخ ومابعدها ربما افهم انك تريد مثل
كود :
Memo1.lines.add((sener as tcheckbox)).caption + '"'مع الانتباه للكود فربما نسيت شي لانني اكتب بالنقال
16-02-2022, 06:58 AM
[attachment=4607][attachment=4607]
السلام اخي لدي مشكلة و المتمثلة في انه لي 04 CheckBox و اريد عند الضغط على اي CheckBox يضاف الى memo بشرط تكون في نفس السطر و تتخللهما فاصلة بين CheckBox و CheckBox بمعنى( CheckBox 2, CheckBox)، و العكس عند رفع التعليم من اي CheckBox تحذف من memo
السلام اخي لدي مشكلة و المتمثلة في انه لي 04 CheckBox و اريد عند الضغط على اي CheckBox يضاف الى memo بشرط تكون في نفس السطر و تتخللهما فاصلة بين CheckBox و CheckBox بمعنى( CheckBox 2, CheckBox)، و العكس عند رفع التعليم من اي CheckBox تحذف من memo
16-02-2022, 12:34 PM
جرب الكود
كود :
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;