Bonsoir,

tout est dans le titre : un PageControl, 4 TabSheets, sur le troisième un bouton et d'autres trucs, et l'événement OnChange du PageControl comme ça :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
procedure TMainform.pgChange(Sender: TObject);
begin
  Application.ProcessMessages; // rajouté mais ne change rien
  case pg.ActivePageIndex of
    0: ;
    1: ;
    2: btnBrowse.SetFocus; // pas de focus... :-(
    3: ;
  end;
  Application.ProcessMessages; // rajouté mais ne change rien
end;
Debian 7/32, Laz 1.0.10
Une idée ?
Merci,