Wat doe deze code?

Status
Niet open voor verdere reacties.

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 ?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan