if frmDetect.HddHost[i] then cbHost[i].Checked := True;
mit dem obigen Code wird die Checkbox in der Liste nur gesetzt wenn hddHost[i] true ist,
wenn er false ist hat die Checkbox einen zufälligen Wert.
Grüße
Klaus
. . . mir ging's ja in erster Linie auch nur um das Setzen (Checked) bei HddHost[i] = True, auch mit einer Erweiterung der Abfrage auf 'False' bin ich nicht weitergekommen - hab allerdings in der Zwischenzeit die Prozedur vervollständigt :
Code:
procedure TfrmHost.FormShow(Sender: TObject);
var
i : Integer;
begin
for i := 1 to 26 do
begin
if frmDetect.HddHost[i] then cbHost[i].Checked := True else cbHost[i].Checked := False;
if frmDetect.HostEnabled[i] then
begin
cbHost[i].Enabled := True;
cbHost[i].Caption := Char(i +64) + ' ' + GetDriveModelName(Char(i +64));
end
else
begin
cbHost[i].Enabled := False;
cbHost[i].Caption := Char(i +64) + ' ';
end;
end;
end;
. . . und komischer Weise werden jetzt alle Checkboxen richtig gesetzt. ?
