BeginUpdate mais pour les TWinControl
Bonjour à vous, j'ai une petite colle.
A la création d'une form, j'initialise le text d'un Tedit à '' mais cette action effectue l'événement de modification (en l'occurence, le OnChange).
Je ne veux pas qu'il l'effectue à la création alors y a t'il une méthode simple comme le BeginUpdate et EndUpdate (qui n'est pas valable pour les edits malheureusement).
Solution possible mais nul :
- Faire avant
Code:
1 2 3 4 5 6 7
| var
NE : TNotyfyEvent;
begin
NE := Edit1.onchange;
Edit1.onchange := nil;
Edit1.text := '';
Edit1.onchange := NE; |
- Gérer cela dans le ONCHANGE de l'édit (pas assez générique)
Code:
if edit1.componentstate = csLoading then exit;
Voilà, donc ma question est comment puis-je initialiser mes composant en désactivant les évènement "utilisateur" (pas le oncreate par exemple) ?
Faire un edit1.enable := false; puis à true effectue l'événement.
Merci