Form wird nicht korrekt positioniert

[CocoPops]

Ich erstelle zum Test folgendermaßen ein neues Formular aus Form2 heraus:

Delphi-Quellcode:

var
 aForm: TForm;
begin
 aForm := TForm.Create(nil);

 aForm.Left := Form1.Left;
 aForm.Top := Form1.Top;
 aForm.Width := Form1.Width;
 aForm.Height := Form1.Height;
 aForm.Color := clBlack;

 aForm.AlphaBlend := True;
 aForm.AlphaBlendValue := 185;

 aForm.ShowModal;

 // ein bisschen Code

 aForm.Hide;
 aForm.Free;

Durch diesen Code möchte ich ein Formular mit Transparenz über das Hauptformular legen. Es wird logischerweise auch genau so erstellt.
Aber seltsamerweise ist dieses neue Formular NICHT an den Koordinaten wie das Form1. Es ist etwas über und etwas weiter links neben dem Form1.

Woran liegt das?

[Aviator]

Wahrscheinlich musst du den Rahmen der Form mit dazurechnen. Du kannst es ja testweise mal mit BorderStyle bsNone probieren, ob die Position dann stimmt.

[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 ...

[Sir Rufo]

Generell zum Code sei noch folgendes gesagt:

Delphi-Quellcode:

var
 aForm: TForm;
begin
 aForm := TForm.Create(nil);

 aForm.Left := Form1.Left;
 aForm.Top := Form1.Top;
 aForm.Width := Form1.Width;
 aForm.Height := Form1.Height;
 aForm.Color := clBlack;

 aForm.AlphaBlend := True;
 aForm.AlphaBlendValue := 185;

 aForm.ShowModal;

 // ein bisschen Code

 aForm.Hide;
 aForm.Free;

Die Verwendung von der globalen Variablen Form1 ist schon mal ganz übel.

Wenn man die MainForm der Anwendung damit meint, dann sagt man das auch mit TApplication.MainForm.
Wenn es irgendeine Form sein soll, dann übergibt man diese als Parameter.

Nach TForm.ShowModal wird der Code an dieser Stelle so lange unterbrochen, bis diese Form geschlossen wird ... das scheint nicht beabsichtigt zu sein ...

aForm.Hide direkt vor aForm.Free ist nutzlos und kann ebenso entfallen.

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

[CocoPops]

Zitat:

Die Verwendung von der globalen Variablen Form1 ist schon mal ganz übel.

Wieso sollte man denn nicht Form1. , Form2. usw. verwenden?

Zitat:

Wenn es irgendeine Form sein soll, dann übergibt man diese als Parameter.

Wie genau ist das gemeint? Davon habe ich noch nie etwas gelesen und dachte, Form1. , Form2. usw wäre normal.

Zitat:

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

Es war nur ein Test

Ich habe deinen Rat mal umgesetzt und deinen Code zum Testen übernommen.
Selbst damit wird mein erzeugtes Fenster seltsamerweise an Position 0;0 angezeigt.

Dazu sei eventuell noch gesagt, dass das Form, aus dem ich diesen Code aufrufe, Modal ist. Daran könnte es liegen denke ich.
Hat sich erledigt. Selbst, wenn ich den Code aus dem MainForm aufrufe passiet dasselbe.

[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.

[Sir Rufo]

Zitat von CocoPops:

Zitat:

Die Verwendung von der globalen Variablen Form1 ist schon mal ganz übel.

Wieso sollte man denn nicht Form1. , Form2. usw. verwenden?

Weil du dir damit Abhängigkeiten in den Code holst, die dir irgendwann auf die Füße fallen. Benenne deine Form doch mal vernünftig und schon funktioniert nichts mehr.

Ansonsten ist dieses Thema hier schon mehrfach durchgekaut worden und bedarf keiner weiteren Diskussion, da es keine neueren Erkenntnisse geben würde (nur ein schales Echo bereits geführter Diskussionen)
siehe dazu auch http://www.delphipraxis.net/179859-u...ree-tform.html

Zitat von CocoPops:

Zitat:

Wenn es irgendeine Form sein soll, dann übergibt man diese als Parameter.

Wie genau ist das gemeint? Davon habe ich noch nie etwas gelesen und dachte, Form1. , Form2. usw wäre normal.

Hmmm, wie man eine Methode/Prozedur mit Parametern erstellt weißt du aber schon?
Zu der "Normalität" siehe Link oben ...

Zitat von CocoPops:

Zitat:

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

Es war nur ein Test

Ich habe deinen Rat mal umgesetzt und deinen Code zum Testen übernommen.
Selbst damit wird mein erzeugtes Fenster seltsamerweise an Position 0;0 angezeigt.

Dazu sei eventuell noch gesagt, dass das Form, aus dem ich diesen Code aufrufe, Modal ist. Daran könnte es liegen denke ich.
Hat sich erledigt. Selbst, wenn ich den Code aus dem MainForm aufrufe passiet dasselbe.

Mein Code funktioniert einwandfrei in einem VCL-Projekt. Hast du ein FMX-Projekt? (Wäre manchmal hilfreich, dieses gleich im ersten Beitrag zu erwähnen)

Delphi-Quellcode:

unit UI_Form_Main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TUIMain_Form = class( TForm )
    Button1 : TButton;
    procedure Button1Click( Sender : TObject );
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  UIMain_Form : TUIMain_Form;

implementation

{$R *.dfm}

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;

procedure TUIMain_Form.Button1Click( Sender : TObject );
begin
  DarkenForm(Self);
end;

end.

UPDATE
Die Angabe deiner Delphi-Version (auch im Profil) wäre durchaus hilfreich ...

[CocoPops]

Die Grundlagen kenne ich gut, Danke =) Nur "seltsame" Probleme machen mir immer zu schaffen.
Ich weiß absolut nicht woran es lag, aber ich habe Delphi neugestartet und nun funktioniert es

Ich schaue mir das mal genauer an, denn das ist wirklich sehr komisch.
Ich denke ich werde Windows auch neuinstallieren, denn auch Windows macht manchmal was es will.

[Sir Rufo]

Zitat von CocoPops:

Die Grundlagen kenne ich gut, Danke =) Nur "seltsame" Probleme machen mir immer zu schaffen.
Ich weiß absolut nicht woran es lag, aber ich habe Delphi neugestartet und nun funktioniert es

Ich schaue mir das mal genauer an, denn das ist wirklich sehr komisch.
Ich denke ich werde Windows auch neuinstallieren, denn auch Windows macht manchmal was es will.

Was funktioniert jetzt?

Dein Code, mein Code, irgendein Code, ...

Wenn du so programmierst wie du hier antwortest, dann wage ich zu vermuten, dass das größte Problem direkt vor deinem Bildschirm sitzt