Messagebox im Hintergrund

[rbest]

hi Kollegen,
habe hier ein merkwürdiges Problem und weiss nicht warum. Eine Messagebox verschwindet im Hintergrund, wenn ich das aufrufende Fenster anklicke. Hier die Funktion:

Delphi-Quellcode:

function Ja_Nein(tcText,tcJaNein : PChar) : boolean;
begin
// MessageDlg geht mangels Default-Button nicht!
  Result := iif(MessageBox(0, tcText, PROGRAMM_LOC, MB_ICONQUESTION + MB_YESNO +
              iif(tcJaNein = 'N', MB_DEFBUTTON2, MB_DEFBUTTON1)) = 6, True,False);
end;

Und das ist der Aufruf:

Delphi-Quellcode:

  if ja_nein('Diese Zeile löschen?', 'N') then _DBC.Verp.Delete;

Wenn ich an der Messagebox vorbeiklicke, befindet sie sich hinter meiner Form. Gips da ne einfache Lösung?

[Muetze1]

Moin!

Als ersten Parameter will er auch das Fenster Handle haben, welches der Parent ist. Wenn du da 0 angibst, dann wird das denn der Desktop...

Also:

MessageBox(Handle, ....);

MfG
Muetze1

[rbest]

:wall: na so was! Besten Dank, Muetze,
statt 0 habe ich jetzt Screen.ActiveForm.Handle eingebaut.
Weisst du zufällig auch mit der Word-Komponente bescheid? Ihc habe ein dokument aufgemacht und wenn ich nach dem Schliessen selbiges nochmal aufmachen möchte, kommt die Meldung rpc-Server nicht gefunden (oder so). Das ist mein Code:

Delphi-Quellcode:

    _WordApplication.Documents.Open('Dateixy.doc',EmptyParam,EmptyParam,EmptyParam,
           EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
          EmptyParam,EmptyParam);
    _WordApplication.Visible := True;
    _WordApplication.Activate;

[Muetze1]

Moin!

1. Sorry, aber habe ich 0 Ahnung von...
2. Bitte neuen Thread aufmachen zu einer neuen Frage...

MfG
Muetze1