Event wenn enabled/disabled wird

[Getox]

Ich habe verschiedenste Editfelder. Hinter diesen liegt ein Shape mit rotem Rahmen, der im onCreate durch eine Funktion erstellt und positioniert wird. Dieser Rahmen dient als Pflichtfeldmarkierung und wird jeweils im onChange Event eingeblendet oder ausgeblendet, wofür auch eine globale Funktion zuständig ist, welche dort aufgerufen wird. Die Pflichtfeldmarkierung soll jetzt aber auch ausgeschaltet werden, wenn das dazu gehörige Feld deaktiviert wird oder halt eingeschaltet werden, wenn das Feld aktiviert wird. Ich darf aber auch keine Komponenten ableiten.

Das ist eine gegebene Situation und ich muss das jetzt mit möglichst geringem Aufwand bewerkstelligen. Es wäre halt ein mords Aufwand alle Stellen zu suchen wo solche Felder aktiviert oder deaktiviert werden.

[stahli]

Der geringste Aufwand wäre wohl - soweit ich das bis hierher einschätze - die globale Funktion nochmal aufzurufen und dabei neben der Wert-Validitätsprüfung noch auf aControl.Enabled zu prüfen.

Die Frage ist, wie man diesen erneuten Aufruf triggert.
Vielleicht einfach in einem Timer auf Änderungen prüfen?

Du könntest die betreffenden Controls in einer Liste sammeln und beim nächsten mal prüfen, ob deren Enabled sich geändert hat.

Es ist halt nicht so ganz einfach, der VCL eine solche Funktionalität nachträglich zu verpassen, ohne Controls abzuleiten.

[Bambini]

Zitat von stahli:

Es ist halt nicht so ganz einfach, der VCL eine solche Funktionalität nachträglich zu verpassen, ohne Controls abzuleiten.

So wie himitsu schon zeigte, kann man sich schon in entsprechende TObjectMethode einklinken. Wie man das macht sieht man hier:
http://blog.barrkel.com/2010/09/virt...erception.html
Das hat nur den Pferdefuß, dass das dann u.a. alle Methodenaufrufe abfägt und nicht nur die TControl.SetEnabled.
Da man sich aber zur Laufzeit erst einklinkt sollte man sich den Zeitpunkt gut auswählen an dem man das Startet
und vielleicht kann man sich eine Liste der betroffenen TControls schon vorher zusammenstellen und prüfen.

[Jim Carrey]

Zitat:

Ich habe verschiedenste Editfelder. Hinter diesen liegt ein Shape mit rotem Rahmen, der im onCreate durch eine Funktion erstellt und positioniert wird. Dieser Rahmen dient als Pflichtfeldmarkierung und wird jeweils im onChange Event eingeblendet oder ausgeblendet, wofür auch eine globale Funktion zuständig ist, welche dort aufgerufen wird. Die Pflichtfeldmarkierung soll jetzt aber auch ausgeschaltet werden, wenn das dazu gehörige Feld deaktiviert wird oder halt eingeschaltet werden, wenn das Feld aktiviert wird. Ich darf aber auch keine Komponenten ableiten.

So etwas oin der Art habe ich auch gemacht und benutze es auch erfolgreich.

Bei mir ist es jedoch sehr viel einfacher. Bei dir würde ich vorschlagen, einfach eine Prozedur zu schreiben, welcher du den Namen des Edits übergibst. Die rufst du dann im OnChange jedes Edits mit Rahmen auf.
Anhand des Namens des Edits kannst du dann den für das Edit zuständigen Rahmen finden. Das setzt aber eine ordentliche Benennung der Edits und der Rahmen voraus.

Immer dieser ständige Ableiten von Komponenten und hin und her. Warum so verdammt kompliziert (aber richtig, keine Frage), wenn es auch einfach und funktionabel geht?

Also etwa so

Delphi-Quellcode:

Edit OnChange
begin
 MacheDiesUndDasInDiesemEdit;

 PflichtFeld(EditX);
end;

procedure PflichtFeld(DeinEdit: TEdit);
begin
 // Selbstverständlich mit Überprüfungen, ob es den Rahmen auch gibt usw
 (DeinForm.FindComponent(DeinEdit.Name + '_Rahmen') as TShape).Enabled := true/false;
end;

Wie gesagt. Ich verwende auch soetwas nur komplett automatisiert und sehr sehr viel einfacher.