Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Groupbox / Button enabled, disabled (https://www.delphipraxis.net/175284-groupbox-button-enabled-disabled.html)

handson 11. Jun 2013 09:17

Groupbox / Button enabled, disabled
 
Hallo!

Ich habe eine Groupbox, der gehören jede Menge Fields an und einen Button. Wenn ich die Groupbox auf disabled setze ist alles quasi gesperrt --> logisch. Gibt es vielleicht einen Trick, dass ich ein
Element, in diesem Fall den Button, enabled lassen kann? Das man den ggf. aus den Container rausnimmt,
aber das System in trotzdem anzeigt?
Wenn das so ist, spare ich mir ne Menge Arbeit mit der Umgestaltung der Form...

Stephan

EWeiss 11. Jun 2013 12:37

AW: Groupbox / Button enabled, disabled
 
Zitat:

Das man den ggf. aus den Container rausnimmt,
Jo in dem man ihn wenn nötig mit SetParent in einem anderen Container verlagert.

Aber macht das Sinn?

gruss

sx2008 11. Jun 2013 13:12

AW: Groupbox / Button enabled, disabled
 
Alle Controls auf der Groupbox disablen und dann gezielt den Button wieder enablen:
Delphi-Quellcode:
procedure EnableControlChilds(control:TWinControl; en:Boolean);
var
   i : integer;
   child : TControl;
begin
   control.Enabled := en;

   for i:=0 to control.ControlCount-1 do
   begin
      child := control.controls[i];

      if child is TWinControl then
      begin
         // rekusiv !!
         EnableControlChilds(TWinControl(child), en);
      end;
   end;
end;

EnableControlChilds(Panel1, False);
Groupbox1.Enabled := True;
Button1.Enabled := True;

handson 12. Jun 2013 08:51

AW: Groupbox / Button enabled, disabled
 
Danke!

Das werde ich gleich mal ausprobieren.

Stephan


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:55 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz