MessageDlg Ohne Schliess-Kreuz?

[Logan]

Hi,

ich wollte mal fragen, ob es möglich ist ein MessageDlg ohne das Schliesskreuz (obenrechts) zu öffnen?
Habe dazu leider nix gefunden im Net
Wenn ja, wie?

Danke euch schon mal für eure Hilfe!

[SirThornberry]

das schließen kreuz kann man so deaktivieren bei einem normalen Form:

Delphi-Quellcode:

DeleteMenu(GetSystemMenu(Handle, False), SC_CLOSE, MF_BYCOMMAND);
DrawMenuBar(Handle);

Du musst also das Handle des Menüs bekommen (es also per CreateMessageDialog) erstellen und dann geht das auch auszublenden.

Also so:

Delphi-Quellcode:

var LDialog: TForm;
begin
  LDialog := CreateMessageDialog('Beispiel.', mtInformation, [mbYes, mbNo]);
  DeleteMenu(GetSystemMenu(LDialog.Handle, False), SC_CLOSE, MF_BYCOMMAND);
  DrawMenuBar(LDialog.Handle);
  if LDialog.ShowModal = mrYes then
    ShowMessage('Es wurde mit "Ja" bestätigt.');
  LDialog.Free;

Bedenke: Das Schließen-Kreuz ist zwar deaktiviert aber Alt+F4 sowie das Senden von Messages können das Schließen trotzdem erzwingen ohne das einer der Buttons geklickt wurde.

[Logan]

Zitat von SirThornberry:

Bedenke: Das Schließen-Kreuz ist zwar deaktiviert aber Alt+F4 sowie das Senden von Messages können das Schließen trotzdem erzwingen ohne das einer der Buttons geklickt wurde.

Hmm, schade dann geht es doch nicht auf wie ich es mit vorgestellt habe

Aber vielen lieben Dank!

[SirThornberry]

warum nicht? du kannst das ganze ja in eine Repeat-Until schleife machen.

Somit bekommst du es hinn das der nutzer unbedingt eines der Felder klicken muss:

Delphi-Quellcode:

var LDialog: TForm;
    LRes: Integer;
begin
  LDialog := CreateMessageDialog('Beispiel.', mtInformation, [mbYes, mbNo]);
  DeleteMenu(GetSystemMenu(LDialog.Handle, False), SC_CLOSE, MF_BYCOMMAND);
  DrawMenuBar(LDialog.Handle);
  repeat
    LRes := LDialog.ShowModal;
  until (LRes = mrYes) or (LRes = mrNo);
  if LRes = mrYes then
    ShowMessage('Es wurde mit "Ja" bestätigt.');
  LDialog.Free;
end;

[Logan]

Stimmt hast recht, leider habe ich es n Tick zu spät gelesen, habe mein Ziel nun anders realisiert.

Aber vielen Dank für deine Hilfe!!!!!!!!!!