Edit.Change auslösen verhindern

[flashkid]

Hi.

Ich schon wieder
Ich habe 2 Edit Felder in meinem Programm, welche dem User ermöglichen sollen einen Wert in PS oder KW anzugeben. Sobald ein Wert eingegeben wird, soll er auch im anderen Edit Feld per Umrechnung eingetragen werden, allerdings nur auf 2 Stellen genau.
Das funktioniert soweit auch, das Problem dabei ist nur, dass auch die Methode Edit2.Change aufgerufen wird, wenn ich

Code: Alles auswählen

Edit2.Text := FloatToInt(RoundTo(KW),-2);

Kann man das irgendwie verhindern? Oder habe ich irgendwas falsch gemacht

Gruß, flashkid

[Teekeks]

Hi!
Eine Idee wäre es temporär die Variable Edit2.OnCange auf nil zu setzen und danach diese wieder zurück zu setzen.

[flashkid]

Du meinst wohl die Methode OnChange auf null zu setzen? Das habe ich nicht hinbekommen
Ich frage nun eine Variable "RealChange" ab und wenn diese "0" ist, dann wird sie auf "1" gesetzt und wenn sie auf "1" ist, dann wird der Wert wirklich geändert.
Zwar ein wenig umständlich, aber funktioniert

Meintest du das so oder per Methode ändern?

[Hitman]

Er meint wohl genau das, was er sagte
Edit2.OnChange := nil;

[flashkid]

So blöd kanns gehen, ich dachte das wäre ein Tippfehler
So funktioniert das natürlich

[mannewolff]

Hi!
Eine Idee wäre es temporär die Variable Edit2.OnCange auf nil zu setzen und danach diese wieder zurück zu setzen.

Das Problem hat man ja öfter. Ich definiere für jedes Form eine Variable (z.B. semaphore). Jeder Ereignismethode beginnt mit

Code: Alles auswählen

if semaphore then exit;

Falls ich z.B. Daten in die Controls lade und nicht möchte, dass mein "mustSave" Flag von den OnChange-Handlern gesetzt wird, setzte ich die Variable erst auf true und hinterher wieder zurück.

Code: Alles auswählen

semaphore := true;
edtName.Text := 'asdf';
edtVorname.Text := 'sdfsdfs';
semaphore := false;

So kann ich alle Handler, die ich temporär nicht gebrauchen kann, ausschalten. Das ist generisch und ich muss mir nicht dutzende Ereigenishandler merken, die ich zunächst auf nil setzte, damit ich sie dann wieder zurücksetzen muss.

-manne

[lrlr]

@mannewolff

mach ich auch so,nur:

1. ohne exit (ich mag exit nicht) sondern mit "normalem" if then begin end"
2. nicht als boolean sonder integer
3. mit try finally

also

Code: Alles auswählen

if semaphore = 0 then begin
  ... 
end;

Code: Alles auswählen

inc( semaphore);
try
    edtName.Text := 'asdf';
    edtVorname.Text := 'sdfsdfs';
finally
  dec( semaphore);
end;