Form wird nicht korrekt positioniert

[Popov]

So wie der Code da ist, ist nichts falsches dran. Selbst wenn das eine Fenster ein Dialog, das andere Normal oder Sonstwas, der Code passt das an.

Der Fehler liegt also nicht an dieser Stelle.

[Sir Rufo]

Das Problem liegt schon irgendwie in dem Code, da es die Verhaltensweise von TForm nicht berücksichtigt.

Dieser Code legt über die übergebene Form eine abgedunkelte Form.

Delphi-Quellcode:

procedure DarkenForm( AForm : TForm );
var
  LForm : TForm;
begin
  if not Assigned( AForm ) then
    raise EArgumentNilException.Create('AForm darf nicht NIL sein!');

  LForm := TForm.Create(AForm);
  try
    LForm.Position := poOwnerFormCenter;
    LForm.Width := AForm.Width;
    LForm.Height := AForm.Height;
    LForm.Color := clBlack;
    LForm.AlphaBlend := True;
    LForm.AlphaBlendValue := 182;
    LForm.ShowModal;
  finally
    LForm.Free;
  end;
end;

Allerdings frage ich mich, was das mit dem ShowModal soll, denn nun wird so lange gewartet, bis diese Form geschlossen wird und erst dann geht es weiter im Text ... ist also nicht wirklich die Lösung, es sei denn, man packt den Code in einen Thread ...

[himitsu]

Zitat von Sir Rufo:

Das Problem liegt schon irgendwie in dem Code, da es die Verhaltensweise von TForm nicht berücksichtigt.

Oder anders gesagt, der Wert von aForm.Position bestimmst, wie/wo Delphi im Visible/Show/ShowModal die Form dann darstellt, denn das wird erst beim Anzeigen (CMShowingChanged) bestimmt und überschreibt somit womöglich deine Werte.


Und jenachdem wie neu dein Delphi ist, würde ich auch noch mit PopupMode und PopupParent rumspielen, damit die aForm auch über der gewünschten Form drüber bleibt.

Zitat:

Instanzen erzeugen ohne Ressource-Schutzblock ist auch sträfliches Unterlassen

Wenn er stattdessen/alternativ wenigstens einen Owner angegeben hätte, dann hätte sich wenigstens wer notfalls ums Aufräumen gekümmert.