/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
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?
>
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste