TToggleBox aendern

[Eclipticon]

Hi,

ich moechte auf das Umschalten einer TToggleBox reagieren und abhaengig von .Checked diesen oder jenen Code ausfuehren. Der Status der ToggleBox wird aber auch von externen Signalen gesteuert, auf die ich nicht reagieren will.

Dass bei einer direkten Aenderung von .Checked OnChange ausgeloest wird, ist logisch ... aber auch mit OnClick kann ich nicht zwischen Userinput und systembedingten Aenderungen von .Checked unterscheiden (wo auch immer da die Logik ist ).

Habt ihr Vorschlaege, wie man dieses Problem loesen koennte?

Vielen Dank!

[MAC]

welche variable "Sender" übergibst du denn in den unterschiedlichen fällen?
Wenn der User das macht sollte Sender = TTooggleBox sein.
Wenn das anders geändert wird dann mach den sender halt nil oder so
kannst dann ja abfragen...

[Eclipticon]

Hi MAC,

ich uebergebe Sender nie direkt, aber ich koennt drauf pruefen, das stimmt ... leider ist in beiden Faellen (Klick auf die Componente oder .Checked := (not .Checked) der Sender die Instanz von TToggleBox ...

[MAC]

dann versuch mal volgendes.
Ich nehme mal an das du die Systembedingte Änderung hervorrufst.
Wenn ja würde ich eine globale Variable nehmen:

Code: Alles auswählen

globalevariable := True;
TogggleBox1.Checked := True;

dann in der OnChanged:

Code: Alles auswählen

if globalevariable then // von system geändert
   begin
   globalevariable := False; // wieder ursprungszustand
   exit; // wenn systembedingt geändert soll nichts passieren.
   end;

Die variante ist zwar nen bisschen dreckig, aber müsste funktionieren...

[Eclipticon]

Danke MAC,

die Idee hatte ich zwar auch schon (ich wollte .Tag der Komoponente verwenden), aber es beruhigt mich sehr, dass andere auch auf aehnlich verquere Loesungen zurueckgreifen muessen ...

Beste Gruesse!