Dialog wird an falscher Stelle angezeigt

[Kinimod8]

Delphi-Quellcode:

function OpenSaveFileDialog(ParentHandle: THandle; const DefExt, Filter, InitialDir, Title: string; var FileName: string; IsOpenDialog: Boolean): Boolean; 
var 
  ofn: TOpenFileName; 
  szFile: array[0..MAX_PATH] of Char; 
begin 
  Result := False; 
  FillChar(ofn, SizeOf(TOpenFileName), 0); 
  with ofn do 
  begin 
    lStructSize := SizeOf(TOpenFileName); 
    hwndOwner := ParentHandle; 
    lpstrFile := szFile; 
    nMaxFile := SizeOf(szFile); 
    if (Title <> '') then 
      lpstrTitle := PChar(Title); 
    if (InitialDir <> '') then 
      lpstrInitialDir := PChar(InitialDir); 
    StrPCopy(lpstrFile, FileName); 
    lpstrFilter := PChar(CharReplace(Filter, '|', #0)+#0#0); 
    if DefExt <> '' then 
      lpstrDefExt := PChar(DefExt); 
  end; 
  if IsOpenDialog then 
  begin 
    if GetOpenFileName(ofn) then 
    begin 
      Result := True; 
      FileName := StrPas(szFile); 
    end; 
  end 
  else 
  begin 
    if GetSaveFileName(ofn) then 
    begin 
      Result := True; 
      FileName := StrPas(szFile); 
    end; 
  end 
end;

Mit diesem Code kann man einen Dialog mit den neuesten Features anzeigen...

Leider wird der Dialog ganz unten rechts und nicht in der Mitte angezeigt :(
Wie kann ich erreichen, dass er in der Mitte gezeigt wird?

[fkerber]

Hi!

Ich wollte deinen Code mal testen, werde allerdings mit Fehlermeldungen überhäuft.
Was muss noch in die Uses?

Zitat:

Zitat von Delphi

[Fehler] Unit1.pas(38 ): Undefinierter Bezeichner: 'TOpenFileName'
[Fehler] Unit1.pas(45 ): Undefinierter Bezeichner: 'lStructSize'
[Fehler] Unit1.pas(46 ): Undefinierter Bezeichner: 'hwndOwner'
[Fehler] Unit1.pas(47 ): Undefinierter Bezeichner: 'lpstrFile'
[Fehler] Unit1.pas(48 ): Undefinierter Bezeichner: 'nMaxFile'
[Fehler] Unit1.pas(50 ): Undefinierter Bezeichner: 'lpstrTitle'
[Fehler] Unit1.pas(52 ): Undefinierter Bezeichner: 'lpstrInitialDir'
[Fehler] Unit1.pas(54 ): Undefinierter Bezeichner: 'lpstrFilter'
[Fehler] Unit1.pas(54 ): Undefinierter Bezeichner: 'CharReplace'
[Fehler] Unit1.pas(56 ): Undefinierter Bezeichner: 'lpstrDefExt'
[Fehler] Unit1.pas(60 ): Undefinierter Bezeichner: 'GetOpenFileName'
[Fehler] Unit1.pas(68 ): Undefinierter Bezeichner: 'GetSaveFileName'
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Ciao fkerber

[mirage228]

Delphi-Quellcode:

uses Windows, Messages

mfG
mirage228

[fkerber]

HI!

@Mirage228:

Gehts dann bei dir?
Die 2 sind nämlich drin und es geht nicht.

Ich häng meine Pas mal an.

Ciao fkerber

[mirage228]

Ähm, sorry!

Es muss die Unit "CommDlg" sein. (Wie in Luckies Win32API Tuts beschrieben, Seite 43 ff.)

Ausserdem habe ich die Funktion CharReplace nicht, ich habe sie durch StringReplace ersetzt.

mfG
mirage228

[fkerber]

Hi!

Danke für die Antwort @mirage.

@Kinimod:

Bei mir wird der Dialog schön in der Mitte angezeigt, so wie es wohl sein sollte.

Ciao fkerber

[Kinimod8]

Ist ja komisch...

Bei mir gehts nicht so :(

[Kinimod8]

Oops :oops:
ich habe ein wenig vom Code weggelassen...

Vollständig hier

Hilft aber trotzdem nicht weiter :wall:

[mschaefer]

Moin, ah N´abend

Also, würde mal bei Borland schauen ob es für D3 dort Updates gibt.
Das scheint doch was mit der internen Organisation zu tun haben.
Sonst kannst Du nur über das Windows-Handle die Position des Dialogs neu
setzen.

Grüße // Martin

[Kinimod8]

Zitat:

Zitat von mschaefer

Sonst kannst Du nur über das Windows-Handle die Position des Dialogs neu
setzen.

Und wie geht das genau :roteyes: