3. Yöntem
Bu yöntem de 2. yöntemle aynı sonucu üretiyor. Aynı işlemleri tekrarlıyoruz.
[CODE]procedure TForm1.CheckBox1Click(Sender: TObject);
const
MAX_SECIM = 3;
var
Sayac, i: Integer;
MesajGosterildi: Boolean;
begin
Sayac := 0;
MesajGosterildi := False;
// Seçili CheckBox'ları say
for i := 1 to 10 do
if FindComponent('CheckBox' + IntToStr(i)) is TCheckBox then
if TCheckBox(FindComponent('CheckBox' + IntToStr(i))).Checked then
Inc(Sayac);
// Eğer 3 seçim yapıldıysa, diğer CheckBox'ları pasif yap
if Sayac >= MAX_SECIM then
begin
for i := 1 to 10 do
if FindComponent('CheckBox' + IntToStr(i)) is TCheckBox then
if not TCheckBox(FindComponent('CheckBox' + IntToStr(i))).Checked then
TCheckBox(FindComponent('CheckBox' + IntToStr(i))).Enabled := False;
// Sadece ilk defa mesajı gösterelim
if not MesajGosterildi then
begin
// ShowMessage('En fazla 3 seçenek seçebilirsiniz!');
MesajGosterildi := True;
end;
end
else
begin
// Eğer 3'ten az seçim varsa tüm checkbox'ları tekrar aktif et
for i := 1 to 10 do
if FindComponent('CheckBox' + IntToStr(i)) is TCheckBox then
TCheckBox(FindComponent('CheckBox' + IntToStr(i))).Enabled := True;
end;
end;[/CODE]
