ale żeby uzyskać efekt jakby wyszarzenia - to trzeba się zastanowić najpierw co chcesz uzyskać. Ty byś chciał uzyskać pewnie coś co jest niemożliwe dla wszystkich aktualnie użytego "Windows Theme" .... różnie może być na różnych windowsach itp ....
jeśli chodzi o same labelki jak na obrazku niżej
to możesz zrobić coś takiego jak napisałem w obsłudze klawisza - może to ci coś powie i zobaczysz jak można wykorzystać często nieznane i mało używane właściwości komponentów
[syntax=delphi]procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
GroupBox1.Enabled := not GroupBox1.Enabled;
for i := 0 to GroupBox1.ControlCount-1 do begin
if GroupBox1.Controls[i] is TLabel then begin
TLabel( GroupBox1.Controls[i] ).Enabled := GroupBox1.Enabled;
end;
end;
end;[/syntax]
-- 2 minutach --
Możesz to poszerzyć jeszcze o TEDIT
[syntax=delphi]procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
GroupBox1.Enabled := not GroupBox1.Enabled;
for i := 0 to GroupBox1.ControlCount-1 do begin
if GroupBox1.Controls[i] is TLabel then begin
TLabel( GroupBox1.Controls[i] ).Enabled := GroupBox1.Enabled;
end;
if GroupBox1.Controls[i] is TEdit then begin
TEdit( GroupBox1.Controls[i] ).Enabled := GroupBox1.Enabled;
end;
end;
end;[/syntax]
ale już np z progressbarem na Win10 nie wyjdzie jak domyślnie
Statystyki: Napisane przez mirekk36 — 28 wrz 2017, o 13:32
]]>
