OnChange in TEdit Ausschalten und wieder Einschalten

Rave173

Hallo,

mal eine Frage kann man den EditOnChange mit ein Befehl ausmachen so das er nicht den OnChange macht ???

z.B.

void __fastcall TMainWin::Edit1Change(TObject *Sender)
{
if (Edit1->Text.Length() == 5)
	{
	AnsiString sDummy = Edit1->Text.Trim();

	Edit2->Text = DBQuery(0, "backwaren", sDummy.ToInt()); <--- Das er den dann nicht Auslöst
	Edit4->Text = DBQuery(0, "warenpreise", sDummy.ToInt());
	}
}
//---------------------------------------------------------------------------

Ich hoffe das mir einer Helfen kann

audacia

TNotifyEvent oldEvent = Edit1->OnChange;
Edit1->OnChange = 0;
try
{
    // hier dein Code
}
__finally
{
    Edit1->OnChange = oldEvent;
}

Rave173

Klappt Danke