|
| Enable og disable alt på et panel..... Fra : Izeqb |
Dato : 22-12-00 02:25 |
|
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?
| |
Thomas Due (22-12-2000)
| Kommentar Fra : Thomas Due |
Dato : 22-12-00 08:53 |
|
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?
>
>
| |
|
|