Hallo,
ich habe ein kleine App die u.A. auch auf Tablets läuft. Wenn der Bildschirm (das Tablet) gedreht wird, möchte ich das mit bekommen, um die Anzeige (mehrere Panels auf einer Form) neu auszurichten. Erster Gedanke war "OrientationSensor" auf die Form, und dann tut es. Tut aber nicht.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
...
OrientationSensor.Active := true;
...
end;
procedure TForm1.OrientationSensorSensorChoosing(Sender: TObject;
const Sensors: TSensorArray; var ChoseSensorIndex: Integer);
var
i: integer;
begin // wird niemals aufgerufen
for i := Low(Sensors) to High(Sensors)
do ShowMessage(Sensors[i].Description + ' => ' + Sensors[i].Manufacturer);
end;
procedure TForm1.OrientationSensorStateChanged(Sender: TObject);
begin
// wird niemals aufgerufen
end;
Also, was kann man da noch verkehrt machen? Darum habe ich gegoogelt, in der Hoffnung eine
WinAPI-Message zu finden, die in dem Augenblick gefeuert wird, wenn das Display gedreht wird. Auch ohne Erfolg. Vermutlich waren es die falschen Suchbegriffe. Jetzt stehe ich irgendwie auf dem Schlauch, und darum frage ich mal nach einem Ansatzpunkt.