Wie halte ich ein Formular in einem Bereich eines anderen Formulars?

[flashcoder]

Ich habe zwei Formulare ("Form1" und "Form2") und möchte wissen, wie das Form2 im Bereich Form1 bleibt. ohne die Grenzen von Form1 zu überschreiten, wenn es verschoben wird (auch Behandlung mit WM_WINDOWPOSCHANGING Nachricht)? Ich habe diesen Code, der verhindert, dass ein Formular außerhalb des Bildschirms bleibt. Wie verhindern Sie, dass Sie außerhalb eines anderen Formulars bleiben (Form2 bleibt außerhalb von Form1)?

Delphi-Quellcode:

type
  TForm2 = class(TForm)
    Button1: TButton;
  private
    procedure WMMove(var Msg: TWMMove); message WM_MOVE;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

{ TForm2 }

procedure TForm2.WMMove(var Msg: TWMMove);
begin
  if (Left < 0) then
    Left := 0;

  if (Top < 0) then
    Top := 0;

  if (Screen.Width - (Left + Width) < 0) then
    Left := Screen.Width - Width;

  if (Screen.Height - (Top + Height) < 0) then
    Top := Screen.Height - Height;
end;

end.

[blawen]

Muss das Fenster verschiebbar sein oder reicht es nicht aus, wenn Du das Fenster z.B. in einem Panel darstellst (Parent zuweisen)?

[flashcoder]

Zitat von blawen:

Muss das Fenster verschiebbar sein oder reicht es nicht aus, wenn Du das Fenster z.B. in einem Panel darstellst (Parent zuweisen)?

blawen,

Muss das Fenster verschiebbar sein.

[Luckie]

Zitat:

Ich habe diesen Code, der verhindert, dass ein Formular außerhalb des Bildschirms bleibt. Wie verhindern Sie, dass Sie außerhalb eines anderen Formulars bleiben (Form2 bleibt außerhalb von Form1)?

Indem du nicht die Werte des Screen Objekts nimmst, sondern die des Formulars?

[Neutral General]

Kann es sein, dass du einfach nur ein MDI-Formular + MDI Child brauchst/willst?

[flashcoder]

Zitat von Neutral General:

Kann es sein, dass du einfach nur ein MDI-Formular + MDI Child brauchst/willst?

MDI ist in meinem Fall nicht anwendbar, da das übergeordnete Formular nicht Application.MainForm ist und ja ein zweites Formular (das auf dem angehängten Bild gezeigte `Form1`).

Lesen Sie mehr unter: https://stackoverflow.com/questions/...not-be-created

[flashcoder]

Zitat von Luckie:

Zitat:

Ich habe diesen Code, der verhindert, dass ein Formular außerhalb des Bildschirms bleibt. Wie verhindern Sie, dass Sie außerhalb eines anderen Formulars bleiben (Form2 bleibt außerhalb von Form1)?

Indem du nicht die Werte des Screen Objekts nimmst, sondern die des Formulars?

Auch getestet und nicht funktioniert.

[Luckie]

Zitat von flashcoder:

Zitat von Luckie:

Zitat:

Ich habe diesen Code, der verhindert, dass ein Formular außerhalb des Bildschirms bleibt. Wie verhindern Sie, dass Sie außerhalb eines anderen Formulars bleiben (Form2 bleibt außerhalb von Form1)?

Indem du nicht die Werte des Screen Objekts nimmst, sondern die des Formulars?

Auch getestet und nicht funktioniert.

Natürlich reicht es nicht einfach den Code zu übernehmen. wie sah denn dein Code aus?

[flashcoder]

Zitat von Luckie:

Zitat von flashcoder:

Zitat von Luckie:

Zitat:

Ich habe diesen Code, der verhindert, dass ein Formular außerhalb des Bildschirms bleibt. Wie verhindern Sie, dass Sie außerhalb eines anderen Formulars bleiben (Form2 bleibt außerhalb von Form1)?

Indem du nicht die Werte des Screen Objekts nimmst, sondern die des Formulars?

Auch getestet und nicht funktioniert.

Natürlich reicht es nicht einfach den Code zu übernehmen. wie sah denn dein Code aus?

Einfach! Wo Screen haben, habe ich durch Form1 ersetzt. Siehe den Code der Frage.

Ich habe diesen Code unten, um besser zu verstehen, was ich wünsche (stattdessen mit der Maus; mit Form2).

Delphi-Quellcode:

var
  R: TRect;
begin
  R := GetClientRect;
  R.TopLeft := ClientToScreen(R.TopLeft);
  R.BottomRight := ClientToScreen(R.BottomRight);
  ClipCursor(@R);
  ShowMessage('Versuchen Sie, die Maus außerhalb des Formular zu bewegen.');
  ClipCursor(nil);
end;

[Luckie]

Ich wollte dich auf das Prinzip aufmerksam machen. Du nimmst als Grenze eben nicht die Screen, sondern das Formular1. Und dahingehend musst du den Code anpassen.