Ustawianie Enabled we wszystkich child - obiektach; - Article 268055 - go-pugleaf

Article View: pl.comp.lang.delphi

Article #268055

Back to pl.comp.lang.delphi Previous Next

Ustawianie Enabled we wszystkich child - obiektach;

#268055

From: Q
Date: Thu, 14 Jul 2005 11:39

26 lines
1676 bytes

zeby ustawic parametr Enabled dla wszystkich
komponentow na Panelu uzywam funkcji:

procedure CascadeEnabled(fControl: TControl; fEnabled: bool);
var
  i: integer;
begin
  if (fControl is TGraphicControl) then
  begin
    TGraphicControl (fControl).Enabled := fEnabled;
    exit;
  end;

  fControl.Enabled := fEnabled;
  for i:=0 to (TWinControl(fControl)).ControlCount-1 do
    CascadeEnabled( TWinControl ((TWinControl(fControl)).Controls[i]),
fEnabled);
end;

funkcja ta ma taka wade, ze musze dopisac
sprawdzajace warunki dla stworoznych przeze mnie komponentow;
/np. warunek dla komponenta bazujacego na TStringGrid'zie;

da sie to jakos obejsc?
/tnz. napisac funkcje ustawiajaca parametr Enabled
 dla _wszystkich_ obiektow danego obiektu (np. Panela)

Technical Details

Message-ID: <db5itp$neo$1@atlantis.news.tpi.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!newsfeed.tpinternet.pl!nemesis.news.tpi.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!newsfeed.tpinternet.pl!nemesis.news.tpi.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
From: "Q" <q@nospam.pl>
Newsgroups: pl.comp.lang.delphi
Subject: Ustawianie Enabled we wszystkich child - obiektach;
Date: Thu, 14 Jul 2005 13:39:35 +0200
Organization: tp.internet - http://www.tpi.pl/
Lines: 28
Message-ID: <db5itp$neo$1@atlantis.news.tpi.pl>
NNTP-Posting-Host: host-ip82-94.crowley.pl
X-Trace: atlantis.news.tpi.pl 1121341177 24024 85.128.94.82 (14 Jul 2005 11:39:37 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Thu, 14 Jul 2005 11:39:37 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4927.1200
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4927.1200
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit