---

Jeg har en form, der er delt op af to paneler!
Kan jeg gøre sådan, så alt på det ene panel er disablet (gråt), indtil jeg
trykker på en knap?

---

Der bliver du, mig bekendt, nødt til at at kode det i hånden.
Men der man jo gøre ved at løbe alle childs for det pågældende
panel igennem i en løkke, og så sætte dem (in)active.

Følgende er et hurtigt eksempel som anvender et panel med et
antal forskellige kontroller på, samt en checkbox som angiver
om disse kontroller er aktive.

procedure TForm1.CheckBox1Click(Sender: TObject);
var idx, cnt : integer;
begin
cnt := panel1.ControlCount;
for idx := 0 to cnt - 1 do
panel1.Controls[idx].Enabled := CheckBox1.Checked;
end;

Hvis du så vil farve baggrunden på f.eks. TEdit, så kan du til føje et
check inde i for løkken, og hvis det er en TEdit så sætte farven efter
checkboxens tilstand.

if panel1.Controls[idx] is TEdit then
begin
if CheckBox1.Checked then
TEdit(panel1.Controls[idx]).Color := clWindow
else
TEdit(panel1.Controls[idx]).Color := clBtnFace;
end;

Mvh
Thomas Due

"Izeqb" <izeqb@secret.dk> wrote in message
news:91uafg$s0t$1@news.cybercity.dk...
> Jeg har en form, der er delt op af to paneler!
> Kan jeg gøre sådan, så alt på det ene panel er disablet (gråt), indtil jeg
> trykker på en knap?
>
>