Problème de SetFocus sur bouton dans TabSheet inopérant au PageControl.OnChange
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:
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,