4. Yöntem
Bir üstteki yöntemle aynı olmasına rağmen bu kez CheckBox1 onclik yordamına yazmak yerine;
type alanına şu satırı ekleyelim: procedure CheckBoxClick(Sender: TObject);
Daha sonra forma şu kodları ekleyelim:
[CODE]procedure TForm1.CheckBoxClick(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]
Daha sonra FormCreate alanına alttaki kodları ekleyelim. Şöyle görünecek
[CODE]procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := 1 to 10 do
if FindComponent('CheckBox' + IntToStr(i)) is TCheckBox then
TCheckBox(FindComponent('CheckBox' + IntToStr(i))).OnClick := CheckBoxClick;
end;[/CODE]
Sonuç 3. yöntemle aynı olacak...
