alert30,
да
видишь ли
у меня косяк с RunList-ом на последней странице
устанавливаются 4 игры и в конце четыре чебокса
выбираются все одновременно, а надо, чтоб по очереди
флаг "эксклюзив" не действует в секции RUN, вот и прикидываю, чтоб как-то сделать так:
здесь
те пустой чекбокс "запустить" и радиобаттоны
скрип с нуля делаю сначала на game script generator от South
раньше эти чекбоксы были как бы "эксклюзивными"
а сейчас нет
где ошибся понять не могу
отбой,
примерно вот так будет эксклюзивный выбор на RunList-е
читать дальше »
procedure RunListClickCheck(Sender: TObject);
var
i:integer;
begin
if WizardForm.RunList.Checked[WizardForm.RunList.ItemIndex] then begin
for i:=0 to WizardForm.RunList.Items.Count-1 do
WizardForm.RunList.Checked[i]:=False;
WizardForm.RunList.Checked[WizardForm.RunList.ItemIndex]:=True;
end;
end;
procedure InitializeWizard;
begin
WizardForm.RunList.OnClickCheck:=@RunListClickCheck;
WizardForm.TypesCombo.ItemIndex:=0;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
if (CurPageID=wpFinished) or (CurPageID=wpInfoAfter) then
WizardForm.RunList.Checked[0]:=True;
end;
но хотелось бы всё таки узнать насчёт TabOrder
