Titelleiste / Rahmen der MessageDlg ausblenden

[010101]

ja genau so hab ich das gemeint. kann zwar das project1 nicht öffnen hab aber die exe mal gestartet.

danke dir.

mfg

[010101]

Zitat von dGeek:

Beispiel mit ausführbarer EXE im Anhang.

Um das Beispiel noch einfacher zu machen das alles noch einmal als Prozedur und nicht als Funktion.

Delphi-Quellcode:

procedure MsgBox(psCaption: string; psText: string; nHeigth: Integer; aMsgDlgType: TMsgDlgType; aMsgDlgBtn: TMsgDlgButtons; aMsgDlgBtnDef: TMsgDlgBtn);
var
  aMsgDialog: TForm; // versehentlich vergessen ..
begin
  aMsgDialog := CreateMessageDialog(psText, aMsgDlgType, aMsgDlgBtn, aMsgDlgBtnDef);

  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);

      Free;
    end;
end;

// Aufruf:
MsgBox('Caption', 'Text', 100, mtInformation, [mbYes, mbNo, mbClose], mbNo);

kannst du bitte dein project noch mal nachsehen, damit ich es mit delphi 7 auch öffnen kann.


gruss

[himitsu]

Könntest du eventuell den Fehler auch benennen?
> Warum bekommst du das Projekt nicht auf.


PS: Strg+C funktioniert auch in Fehler-Dialogen. (als Text)

[010101]

ich sehe nur dies bei öffnen dieses projects

[pelzig]

Den Objektinspektor haste nicht in deinem Delphi?

Left/Top/Height und Width kennste auch nicht?

F1- und F12-Taste sind auch kaputt?

Fragen über Fragen...

MfG

[dGeek]

Müsste jetzt eigentlich funktionieren.
Denn jetzt ist wirklich alles gekürzt wo es nur geht..

Wie sieht denn deine Fehlermeldung aus, warum kannst du das nicht öffnen?

[Luckie]

Interessant. Die Schaltflächen sind auf französisch bei meinem deutschen Windows 7. Benutzt du ein französisches Delphi?

[himitsu]

Jupp, das tut er, wobei es ja aktuell (seit RAD-Studio und vorallem seit man das im Setup/Installer nicht mehr einstellen kann) keine direkten Sprachversionen mehr gibt und man das nur entsprechend umschalten muß.
[edit] In diesem Fall natürlich Tab 2.

Hab mich schon immer gefragt, warum es eigentlich kein russisches und indisches Delphi gibt, wo dort doch angeblich viele Delphinutzer leben.

[010101]

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




alle anderen projecte ob von mir oder aus foren gehen ohne probleme aufzumachen.

[DeddyH]

Cursor auf CreateMessageDialog setzen -> F1. Nun sollte man sehen können, welche Parameter erwartet werden. Den "überflüssigen" (heißt: Deinem Delphi nicht bekannten) muss man dann eben einfach löschen.