//Création d'un nouvel item procedure TFrmAspectgraphique.Runion1Click(Sender: TObject); begin with Plan_BdD.CreateItemAtSelection do begin case (sender as TMenuItem).Tag of 30 : begin imageID:=0; captiontext:='Réunion'; color:=clYellow; end; 31 : begin imageID:=2; captiontext:='Rendez-vous'; color:=clAqua; end; 32 : begin imageID:=1; captiontext:='Alarme'; color:=clRed; end; end; Update; end; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question