Forum: Win32/Win64 API (native code)
by mm1256,
13. Nov 2015
@SirRufo Screen.Width und Screen.Height hatte ich natürlich auch probiert, aber Beide ändern sich nicht, wenn das Tablet gedreht wird.
Die App ist ein uraltes Tool für den privaten Gebrauch (Textanzeige für mich und meine Musikerkollegen) und noch mit D7 erstellt. Ich fass es nicht. Habe soeben die App mit XE7 compiliert und da kommt TForm.OnResize auch bei BorderStyle := bsNone
Jetzt werde...
Forum: Win32/Win64 API (native code)
by mm1256,
13. Nov 2015
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.
procedure TForm1.FormCreate(Sender: TObject);
begin
...
OrientationSensor.Active := true;
...