Reaktion auf Positionsänderung nach Änderung der Bildschirmauflösung

[Dalai]

Also ich komme da auf keinen grünen Zweig. Selbst mit Debug DCUs und Durchsteppen durch die Controls- und Forms-Units ist es mir nicht gelungen, die Ursache oder zumindest den Auslöser zu finden.

Daher gehe ich jetzt den pragmatischen Weg und benutze das Application.OnIdle-Ereignis:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDblClick(Sender: TObject);
  private
    procedure WMDisplayChange(var Msg: TWMDisplayChange); message WM_DISPLAYCHANGE;
    procedure SetPosition;
    procedure OnIdle(Sender: TObject; var Done: Boolean);
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMDisplayChange(var Msg: TWMDisplayChange);
begin
    inherited;
    Application.OnIdle:= Self.OnIdle;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    SetPosition;
end;

procedure TForm1.OnIdle(Sender: TObject; var Done: Boolean);
begin
    Application.OnIdle:= nil;
    SetPosition;
end;

procedure TForm1.SetPosition;
var
  Ltop, Lleft: integer;
begin
    Lleft:= (Screen.Width - Self.Width) div 2;
    Ltop:= Screen.Height - Self.Height;
    Self.SetBounds(Lleft, Ltop, Self.Width, Self.Height);
end;

procedure TForm1.FormDblClick(Sender: TObject);
begin
    SetPosition;
end;

end.

Application.OnIdle ist offenbar eines, das erst ausgelöst wird, wenn Delphi alle durch die Auflösungsänderung verschickten/erzeugten Nachrichten bearbeitet hat. Jedenfalls besser, als einen Timer dafür zu missbrauchen...

Falls jemand noch (bessere) Ideen hat, bin ich dafür offen.

Grüße
Dalai

[jaenicke]

Zitat von Dalai:

Also ich komme da auf keinen grünen Zweig. Selbst mit Debug DCUs und Durchsteppen durch die Controls- und Forms-Units ist es mir nicht gelungen, die Ursache oder zumindest den Auslöser zu finden.

Wie sieht denn der Stacktrace zum SetBounds an der Stelle aus, an der nach deiner Änderung die Position wieder falsch gesetzt wird?

Dazu musst du ja nur das SetBounds überschreiben und dann vor deinem Aufruf von SetBounds den Haltepunkt im SetBounds (z.B. auch per Haltepunktgruppe automatisch) aktivieren. Dann wirst du einmal dein SetBounds bekommen und danach solltest du dort erneut ankommen.

[Dalai]

Zitat von jaenicke:

Wie sieht denn der Stacktrace zum SetBounds an der Stelle aus, an der nach deiner Änderung die Position wieder falsch gesetzt wird?

Stacktrace könnte ich zur Verfügung stellen, aber für den ersten Aufruf bringt das wohl kaum etwas, denn der ist soweit korrekt. Es gibt keinen weiteren Aufruf von SetBounds. Genau deshalb finde ich ja nicht heraus, was da los ist.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDblClick(Sender: TObject);
  private
    procedure WMDisplayChange(var Msg: TWMDisplayChange); message WM_DISPLAYCHANGE;
    procedure SetPosition;
  public
    procedure SetBounds(ALeft, ATop, AWidth, AHeight: integer); override;
  end;


procedure TForm1.WMDisplayChange(var Msg: TWMDisplayChange);
begin
    inherited;
    Self.SetPosition;
end;

procedure TForm1.SetPosition;
var
  Ltop, Lleft: integer;
begin
    Lleft:= (Screen.Width - Self.Width) div 2;
    Ltop:= Screen.Height - Self.Height;
    Self.SetBounds(Lleft, Ltop, Self.Width, Self.Height);
end;

procedure TForm1.SetBounds(ALeft, ATop, AWidth, AHeight: integer);
begin
    inherited;
end;

WMDisplayChange ruft SetPosition und dieses ruft (einmalig) SetBounds. Das war's.

Zitat:

Dazu musst du ja nur das SetBounds überschreiben und dann vor deinem Aufruf von SetBounds den Haltepunkt im SetBounds (z.B. auch per Haltepunktgruppe automatisch) aktivieren. Dann wirst du einmal dein SetBounds bekommen und danach solltest du dort erneut ankommen.

Das SetBounds wird nur einmalig gerufen, und unmittelbar danach ist die Position korrekt - jedenfalls wenn ich glauben kann, was ich auf dem Bildschirm sehe, denn ich weiß nicht, ob die Nachrichten wirklich synchron verarbeitet werden. Beim Durchsteppen fiel mir auf, dass WM_PAINT-Nachrichten verarbeitet wurden, obwohl das Fenster schon an der richtigen Position war. Vermutlich setzt Delphi die Position durch etwas anderes als SetBounds.

Grüße
Dalai

[Rollo62]

Zitat von Dalai:

Selbst mit Debug DCUs und Durchsteppen durch die Controls- und Forms-Units ist es mir nicht gelungen, die Ursache oder zumindest den Auslöser zu finden.

Schon mit Remote-Debugging und/oder Logging versucht ?