MessageForm, beim Verschieben, immer im Center der MainForm

[Helmi]

Hallo,

ich erzeuge mit:

Delphi-Quellcode:

  //Meldungs-Form erzeugen und beschreiben
  MessageForm := CreateMessageDialog(Msg3, mtInformation, []);
  with MessageForm do
    begin
      BorderIcons := [];

      Font.Height := 15;
      Font.Style  := [fsBold];
      Color       := $00F8E4D8;
      Height      := 90;
      Width       := 320;
      FormStyle   := fsStayOnTop;
    end;

eine MeldungsForm, die nur als Anzeige dient.

Über
MessageForm.Show; zeig ich die MessageForm an und über:
MessageForm.Hide; versteck ich sie wieder.

Da die MessageForm den FormStyle fsStayOnTop hat, steht die MessageForm vor der MainForm.
Dies ist auch ok.

Da ich die MessageForm nicht über ShowMedal anzeige, ist es möglich, die MainForm über die Titelleiste zu verschieben.

Nun meine eigentliche Frage:

Ist es möglich, dass die MessageForm immer in der Mitte der MainForm zu sehen ist? - Auch wenn die MainForm verschoben wird.

Ach ja: Die MainForm hat als Position poDesktopCenter.

[mkinzler]

Du könntest in der MainForm auf das Verschieben reagieren und dann die andere Form entsprechend mitverschieben.

[Helmi]

Zitat von mkinzler:

Du könntest in der MainForm auf das Verschieben reagieren und dann die andere Form entsprechend mitverschieben.

mmh! bleibt mir wohl nichts anderes übrig! - Ich hab gehofft, dass es vielleicht eine function gibt, um zwei Formen voneinander "abhängig" zu machen.