Discussion :

[alheuredudejeuner]

bonjour
pour ce faire je me suis fait une méthode :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
function TInfosSystem.getOrientation: TScreenOrientation;
var
 ScreenService: IFMXScreenService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService) then
  begin
    ScreenService := TPlatformServices.Current.GetPlatformService(IFMXScreenService) as IFMXScreenService;
    Result:=ScreenService.GetScreenOrientation;
  end;
end;

je pensais l'utiliser dans le rezise:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
procedure TfNotes.FormResize(Sender: TObject);
var
  Orientation: TScreenOrientation;
begin
  orientation:= oInfosSystem.Instance.getOrientation;
   case orientation of
     TScreenOrientation.Portrait: ShowMessage('Portrait');
     TScreenOrientation.Landscape:ShowMessage('Landscape') ;
     TScreenOrientation.InvertedPortrait: ShowMessage('InvertedPortrait');
     TScreenOrientation.InvertedLandscape:ShowMessage('InvertedLandscape') ;
   end;
end;

Le FormResize est bien joué à l'ouverture de l'application, mais pas à la rotation ce qui est mon but.
Une idée?
Cordialement
André