Wok
Gebruiker
- Lid geworden
- 1 mei 2013
- Berichten
- 117
In een bestaan programma vind ik een stukje code wat ik niet weet
Procedure TMainForm.TriggerOnExits;
Var
Event: TNotifyEvent;
Begin
Event := Nil;
If (ActiveControl Is TEdit) Then
Event := TEdit(ActiveControl).OnExit;
If (ActiveControl Is TDBEdit) Then
Event := TDBEdit(ActiveControl).OnExit;
If Assigned(Event) Then
Event(ActiveControl);
End;
Wat doet het en hoe gebruik je het ?
Procedure TMainForm.TriggerOnExits;
Var
Event: TNotifyEvent;
Begin
Event := Nil;
If (ActiveControl Is TEdit) Then
Event := TEdit(ActiveControl).OnExit;
If (ActiveControl Is TDBEdit) Then
Event := TDBEdit(ActiveControl).OnExit;
If Assigned(Event) Then
Event(ActiveControl);
End;
Wat doet het en hoe gebruik je het ?