Komponenten deaktivieren

[markbolten]

Hallo,
ich will eine allgemeingültige Procedure schreiben die Komponenten auf dem gerade
aktiven Formula deaktiert, nur der KomponentenName ist bekannt .

Delphi-Quellcode:

bearbeiten_Komponent := application.mainform.activemdichild.FindComponent('xyz');
 if bearbeiten_Komponent <> nil then
  begin
   ???.enabled := false;
  end;

Um den Programmumfang nicht unermeßliche groß zu machen will ich eine Auflistung
möglicher Arten (tedit,tbutton,tcombobox usw.) vermeiden .

Ist es also möglich nur eine Anweisung bzw. keine genau definierte Auflistung zu verwenden?

Danke

[marabu]

Hallo,

Enabled ist eine Eigenschaft von TControl:

Delphi-Quellcode:

procedure UpdateEnabled(owner: TComponent; const aName: string; aValue: Boolean);
var
  compo: TComponent;
begin
  compo := owner.FindComponent(aName);
  if Assigned(compo) and (compo is TControl) then
    TControl(compo).Enabled := aValue;
end;

Grüße vom marabu

[jbg]

So am Rand bemerk:

Zitat:

Zitat von marabu

if Assigned(compo) and (compo is TControl)

"nil is TControl" ergibt False und keine Schutzverletzung.

[marabu]

Hallo Andreas,

danke für den Hinweis.

Das war mein Gürtel-und-Hosenträger-Syndrom.

Freundliche Grüße