Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.323 Beiträge
 
Delphi XE2 Professional
 
#1

MessageForm, beim Verschieben, immer im Center der MainForm

  Alt 6. Jun 2006, 17:12
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.
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat