{Sur la fiche: 1TLabel + 1TEdit + 1TLabeledEdit} procedure TForm1.FormCreate(Sender: TObject); begin Label1.Caption := '&Nom'; Label1.FocusControl := Edit1; LabeledEdit1.EditLabel.Caption := '&Prénom'; end; {Utilisation : Alt-N ou Alt-P}