Bonjour,

Il y 12 ans que j'ai codé ce truc:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm90.FormShow(Sender: TObject);
var TmpEvt : TNotifyEvent;
begin
 
tmpevt := AdvOfficeRadioGroup1.Onclick;
AdvOfficeRadioGroup1.Onclick:= nil;
AdvOfficeRadioGroup1.ItemIndex:=2;
AdvOfficeRadioGroup1.Onclick:=TmpEvt ;
 
suite du traitement ....
 
end;

A quoi sert cette variable TNotifyEvent !!
J'ai du faire ça pour initialiser le radioGroup, mais aujourd'hui je ne comprends plus ce que j'ai fait ?


Cordialement