Position von Dialog

[SaFu]

ok anscheinend komm ich nicht in die funktion rein
es wird nichts angezeigt mit einem showmessgae

[taaktaak]

Moin, Moin,

ich habe für diese Zwecke immer folgendes verwendet, um z.B. einen OpenDialog zu positionieren:

Delphi-Quellcode:

procedure Tfo~~.OpenDialog1Show(Sender:TObject);
var Rect : TRect;
begin
  with Sender as tOpenDialog do begin
    GetWindowRect(Handle,Rect);
       MoveWindow(Handle,
                  0,                           // new Left
                  0,                       // new Top
                  succ(Rect.Right -Rect.Left),
                  succ(Rect.Bottom-Rect.Top),
                  true );
    end;
end;

Das funktioniert eigentlich immer - dachte ich! Es funktioniert aber offenbar nur, wenn in Options des Dialogs die Eigenschaft ofOldStyleDialog=true ist. Als alter Mann nutze ich immer diese Option - hihihi. Läßt man den Dialog aber im modernen Stil erscheinen, funktioniert die Positionierung nicht. Vielleicht ist das auch der Grund, das eure Lösungen nicht funktionieren?!

[SaFu]

ok ich versuche es ja gerdae beim Colordialog und da gibt es diese eigenschaft garnicht also geht es damit anscheinend nicht.

[taaktaak]

Ahh, bei mir funktioniert das (mit meinem Ansatz) beim ColorDialog schon. Verwendet deine Delphi-Version dann wohl schon einen NEUEN ColorDialog?! Aber sicherlich gibt es auch für die "neuen Dialoge" einen Weg - leider kenne ich ihn nicht

[SaFu]

Kennt vielleicht irgendjeman noch einen Weg.

Ich Frage mich immer nur wie Ihr das sonst macht, überlasst Ihr das Windows wo es aufplopen soll oder könnt Ihr das alle ohne nachzufragen.

Bin ich so blöd ich weiss ich habe immer viele Fragen aber im gegensatz zudem was ich alles selber schreibe und finde, sind es noch recht wenig Fragen

[SaFu]

Gut beim Normalen Opendialog funzt es jetzt bei mir auch.

Nur beim Colordialog nicht???

[stahli]

Was liefern denn
Form6.Left + (Form6.Width div 2) - (W div 2),
Form6.Top + (Form6.Height div 2) - (H div 2),
zur Laufzeit zurück?

Wird CallWindowProc aus der Unit Windows aufgerufen?

[SaFu]

wie gesagt es kommt nicht aus der funktion zurück

Aber dein code funzt bei den anderen Dialogen ganz gut, muss jetzt nur noch gucken ob es beim Fontdialog geht.

Für das Colordialog muss ich mal schauen ob ich nochwas finde habe aber schon überall im Forum gesucht, anscheinen hatte noch niemand das Problem.

[SaFu]

Hi

wollte nur nochmal nachfragen ob da jemand ne Lösung hat.

Habe jetzt fetgestellt das der Code von stahli bei den meisten Dialogen funktioniert nur beim Font- Color- und printdialog nicht.

Hat jeman vielleicht eine Lösung.

Gruß Sascha