Thema: Delphi Alle BitBtn auf einem TTabSheet enabled = FALSE setzen

Einzelnen Beitrag anzeigen

Apollonius

Registriert seit: 16. Apr 2007
2.325 Beiträge
 
Turbo Delphi für Win32
 
#8

Re: Alle BitBtn auf einem TTabSheet enabled = FALSE setzen

  Alt 7. Mär 2008, 15:33
Zitat:
Assigned(TBitBtn(Components[i]).Parent.Parent) and
(TBitBtn(Components[i]).Parent.Parent = TabSheet1)
Die zweite Abfrage reicht, denn Assigned prüft ja nur auf <> nil.
Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"?
"An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."
  Mit Zitat antworten Zitat