Main Menu kullanarak form üzerindeki bileşenleri aktif,pasif,gizlemek,göstermek örnekleri...
procedure TForm1.pasif1Click(Sender: TObject);
Var
i : integer;
begin
for i:= 0 to Form1.ComponentCount -1 do
begin
if Form1.Components[i] is TWinControl then
TWinControl(Form1.Components[i]).Enabled := False;
end;
end;
procedure TForm1.goster1Click(Sender: TObject);
Var
i : integer;
begin
for i:= 0 to Form1.ComponentCount -1 do
begin
if Form1.Components[i] is TWinControl then
TWinControl(Form1.Components[i]).visible := true;
end;
end;
procedure TForm1.gizle1Click(Sender: TObject);
Var
i : integer;
begin
for i:= 0 to Form1.ComponentCount -1 do
begin
if Form1.Components[i] is TWinControl then
TWinControl(Form1.Components[i]).visible := false;
end;
end;
procedure TForm1.aktif1Click(Sender: TObject);
Var
i : integer;
begin
for i:= 0 to Form1.ComponentCount -1 do
begin
if Form1.Components[i] is TWinControl then
TWinControl(Form1.Components[i]).Enabled := true;
end;
end;
end.
Hiç yorum yok:
Yorum Gönder