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:

[fkerber]

Hi!

Dann pack doch mal den Dialog in eine neues Prjekt und schau mal, ob es an dem Code an sich liegt oder nur ein Problem bei deinem aktuellen Programm ist.


Ciao fkerber

[Kinimod8]

Habe ich schon lange... Tritt immer auf... :x

[Kinimod8]

Ich habe eine Idee: Vieleicht ist das ganze System-abhängig?
Ich habe mal eine .exe. Vieleicht könnt ihr mal gucken, ob es bei euch dann auch unten rechts ist...

[ims]

hi Kinimod8

ich hab zwar keine ahnung wie du dein problem los wirst, aber ich hab mir schnell dein projekt angesehn.

- erster aufruf des dialogs -> unten rechts
- weiter aufrufe -> immer dort wo ich den dialog zuvor hingeschoben habe

mein system:
- xp prof, sp1
- P4 2.6
- 512 MB DDR

vielleicht hilfts dir ja.


gruss, dave

[fkerber]

HI!

Ja kommt tatsächlich beim ersten Mal unten rechts.
Kannst du mal den Source anhängen?

Vielleicht liegt es ja am kompilierenden Rechner?


Ciao fkerber

[Kinimod8]

Hier der Source:

[ims]

hi

habs bei mir mal kompiliert aber mit dem gleichen resultat wie schon beschrieben...


gruss, dave


//EDIT: mit fkerber's lösung gehts auch bei mir...

[fkerber]

Hi!

Habe den "Fehler":

Delphi-Quellcode:

if OpenSaveFileDialog(Form1.Handle, 'txt', 'Text Files|*.txt', 'c:\',
    'Select text file', s, True)

Mach den Aufruf so. Der Unterschied:

Statt application.Handle Form1.Handle.

Dann geht es bei mir.


Ciao fkerber

[Kinimod8]

Jiippii! Es geht!

Ich habe jetzt aber noch ein weiteres Problem, was sich aus der Lösung resultiert: Ich habe eine Kompo geschrieben, die das Einbinden dieses Dialoges vereinfacht. Nun kann ich schlecht in die Execute-Funktion Form1.Handle reinschreiben... Gibt es dabei ein anderes Handle, was man verwenden kann?

[fkerber]

Hi!

Damit geht es auch:

Delphi-Quellcode:

Application.MainForm.Handle

Ciao fkerber

[Kinimod8]

Leider nicht... :(

[fkerber]

Hi!

Also bei mir geht das 100%.

Wenn ich statt application.Handle application.mainform.Handle schreibe, dann wird der Dialog mittig angezeigt, sonst unten rechts.


Ciao fkerber

[Kinimod8]

Hier mal die Komponente incl. Source...

[fkerber]

Hi!

Wenn ich die Komponente installiere und dann aufs Form ziehe und per Execute den Dialog aufrufe ist er schön mittig, wie man es gewohnt ist.


Ciao fkerber

[Kinimod8]

Hier habe ich nochmal mein Projekt. Wie sieht es bei euch aus?

[fkerber]

Hi!

Wenn ich das Projekt aufrufe (also das von dir kompilierte, die exe), dann erscheint er unten rechts. Kompiliere ich danach selbst nochmal ist es richtig.

Hast du evtl. noch ne "alte" Version der Komponente installiert?


Ciao fkerber

[Kinimod8]

:party: In der Tat! Jetzt gehts! :hello:

[fkerber]

Hi!

Gudd!

Was kann denn dieser Dialog jetzt mehr als der andere?

Ciao fkerber

[Kinimod8]

Er zeigt die neuesten Features an. Z.B.: die Zeile links. Bei meiner D3 wird diese sonst nicht gezeigt... :?