Titelleiste / Rahmen der MessageDlg ausblenden

[010101]

Anhang 42236

leider keine hilfen installiert

[Zoot]

Zitat:

Zitat von 010101 (Beitrag 1281937)

Anhang 42236

leider keine hilfen installiert

Dann hilft wohl nur das Formatieren des Systemlaufwerks.

[DeddyH]

Ich meinte das zwar nicht während des Debuggings, aber der Hint zeigt doch schon, welche Parameter erwartet werden. Der letzte (Setzen des Default-Buttons) ist Delphi 7 nicht bekannt, also weg damit.

[Klaus01]

Zitat:

Zitat von 010101 (Beitrag 1281932)

jetzt geht es schonmal zu öffnen, und beim test (grüner pfeil) kommt dann der fehler.

Anhang 42233

.. die Unit "Dialogs" hast Du eingebunden?
Denn dort ist mbClose definiert.

Grüße
Klaus

[010101]

Zitat:

Zitat von DeddyH (Beitrag 1281940)

Ich meinte das zwar nicht während des Debuggings, aber der Hint zeigt doch schon, welche Parameter erwartet werden. Der letzte (Setzen des Default-Buttons) ist Delphi 7 nicht bekannt, also weg damit.

ist raus...

Anhang 42237


@klaus01

wie auch eingebunden?

[DeddyH]

Klaus meinte, ob die Unit Dialogs in Deiner uses-Klausel steht. Eigentlich müsste sie das, da CreateMessageDialog ja auch aus Dialogs stammt. Wieso mbClose allerdings unbekannt sein soll, weiß ich gerade auch nicht.

[Klaus01]

Zitat:

Zitat von 010101 (Beitrag 1281951)

@klaus01

wie auch eingebunden?

Delphi-Quellcode:

Interface
   uses
     ..,Dialogs;

Grüße
Klaus

[010101]

Zitat:

Zitat von Klaus01 (Beitrag 1281954)

Zitat:

Zitat von 010101 (Beitrag 1281951)

@klaus01

wie auch eingebunden?

Delphi-Quellcode:

Interface
   uses
     ..,Dialogs;

Grüße
Klaus

ja steht ja drin

Anhang 42238

na ja da bleibt der rahmen eben dran.

danke für eure hilfe.

[pelzig]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

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

var
  Form1: TForm1;
  aMsgDialog: TForm;
implementation

{$R *.DFM}

function MsgBox(psCaption: string; psText: string; nHeigth: Integer;
  aMsgDlgType: TMsgDlgType; aMsgDlgBtn: TMsgDlgButtons; aMsgDlgBtnDef:
  TMsgDlgBtn): Integer;
var
  iModalRes: Integer;
begin
  iModalRes := ID_NO;
  aMsgDialog := CreateMessageDialog(psText, aMsgDlgType, aMsgDlgBtn);
  with aMsgDialog do
  begin
    BringToFront;
    Caption := psCaption;
    ClientHeight := nHeigth;
    BorderIcons := []; // Keine Border-Icons
    BorderStyle := bsNone; // Keine Titelleiste
    FormStyle := fsStayOnTop;
    Top := (Screen.Height div 2) - (Height div 2);
    SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE
      or SWP_NOSIZE);
    iModalRes := ShowModal;
    Free;
  end;
  Result := iModalRes;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Aufruf:
  case MsgBox('Caption', 'Text im Dialog', 75, mtConfirmation, [mbYes, mbNo,
    mbCancel], mbNo) of
    ID_YES: Close;
    ID_NO: Close;
    ID_Cancel: ;
  end;

end;

end.

[uligerhardt]

Zitat:

Zitat von Klaus01 (Beitrag 1281943)

Denn dort ist mbClose definiert.

Erst seit neuerem. Ich hab sie in D2007 noch nicht. Kam vielleicht mit FireMonkey rein?