Hi

und zwar hatte ich gestern ne Frage wie man die Messagedialogs in der Mitte meiner Form aufgehen lässt.

Jetzt ist mir aufgefallen das ich die ganzen Dialogs (Open-, Picture-, Printdialog usw) auch in der Mitte aufgehen lassen muss gibt es da auch eine möglichkeit die Position zu bestimmen

Gruß Sascha

Eine "Idee von Pascal Enz" zu den "richtigen" Dialogen findest Du hier

Zur mittigen Positionierung habe ich es so abgewandelt:

zusammenfalten · markieren

Delphi-Quellcode:

// OldProcfuerOpendialog1: Dword globale Variable
//Idee von Pascal Enz
function DialogProc(Handle: HWND; Msg: DWORD; wParam, lParam: Integer):Integer; stdcall;
const
  W = 683;
  H = 512;
begin
  if MSG = WM_SHOWWINDOW then Begin
    SendMessage(Handle, WM_COMMAND, $A004, 0);
    SendMessage(Handle, WM_COMMAND, $A004, 0);
    SetWindowPos(Handle, 0,
    Form.Left + (Form.Width div 2) - (W div 2),
    Form.Top + (Form.Height div 2) - (H div 2),
    W,
    H,
    0);
  End;
  Result := CallWindowProc(Pointer(OldProcForOpenSaveDialog), Handle, Msg, wParam, lParam);
end;

Zu den MessageDialogen habe ich keine Lösung gefunden - würde mich aber auch noch interessieren.

stahli

Zu den MessageBoxen gabe

War vom Dani und Funzt sehr gut selbst beim verkleinern der Form (logisch)

zusammenfalten · markieren

Delphi-Quellcode:

function MessageDlgPos2(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; ParentForm: TForm = nil; HelpCtx: Longint = -1;
  const HelpFileName: string = ''): Integer;
begin
  with CreateMessageDialog(Msg, DlgType, Buttons) do
    try
      HelpContext := HelpCtx;
      HelpFile := HelpFileName;
      if Assigned(ParentForm) then begin
        Position := poDesigned;
        //0 div 2 -> 0, also kein Problem.
        Left := ParentForm.Left + ((ParentForm.Width - Width) div 2);
        Top := ParentForm.Top + ((ParentForm.Height - Height) div 2);
      end else begin
        Position := poScreenCenter;
      end;
      Result := ShowModal;
    finally
      Free;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageDlgPos2('Dies ist ein Test', mtInformation, [mbOK], Self);
end;

so hier nochmal komplett:

zusammenfalten · markieren

Delphi-Quellcode:

implementation

uses
  Windows, Messages;

var
  OldProcForOpenSaveDialog: DWord;

// OldProcfuerOpendialog1: Dword globale Variable
//Idee von Pascal Enz
function DialogProc(Handle: HWND; Msg: DWORD; wParam, lParam: Integer):Integer; stdcall;
const
  W = 683;
  H = 512;
begin
  if MSG = WM_SHOWWINDOW then Begin
    SendMessage(Handle, WM_COMMAND, $A004, 0);
    SendMessage(Handle, WM_COMMAND, $A004, 0);
    SetWindowPos(Handle, 0,
    FormXyz.Left + (FormXyz.Width div 2) - (W div 2),
    FormXyz.Top + (FormXyz.Height div 2) - (H div 2),
    W,
    H,
    0);
  End;
  Result := CallWindowProc(Pointer(OldProcForOpenSaveDialog), Handle, Msg, wParam, lParam);
end;


// und folgende Ereignisbehandlungen den Dialogen zuweisen...


procedure TFormXyz.OpenDialogClose(Sender: TObject);
var
  Handle: HWND;
begin
  Handle := GetParent((Sender as TOpenDialog).Handle);
  SetWindowLong(Handle, DWL_DLGPROC, Integer(OldProcForOpenSaveDialog));
  OldProcForOpenSaveDialog := 0;
end;

procedure TFormXyz.OpenDialogShow(Sender: TObject);
var
  Handle: HWND;
begin
  Handle := GetParent((Sender as TOpenDialog).Handle);
  OldProcForOpenSaveDialog := GetWindowLong(Handle, DWL_DLGPROC);
  SetWindowLong(Handle, DWL_DLGPROC, Integer(@DialogProc));
end;

procedure TFormXyz.SaveDialogClose(Sender: TObject);
var
  Handle: HWND;
begin
  Handle := GetParent((Sender as TSaveDialog).Handle);
  SetWindowLong(Handle, DWL_DLGPROC, Integer(OldProcForOpenSaveDialog));
  OldProcForOpenSaveDialog := 0;
end;

procedure TFormXyz.SaveDialogShow(Sender: TObject);
var
  Handle: HWND;
begin
  Handle := GetParent((Sender as TSaveDialog).Handle);
  OldProcForOpenSaveDialog := GetWindowLong(Handle, DWL_DLGPROC);
  SetWindowLong(Handle, DWL_DLGPROC, Integer(@DialogProc));
end;

stahli

Mach ich da was falsch habe es jetzt mal mit dem Color dialog versuch aber irgenwie will das net so

zusammenfalten · markieren

Delphi-Quellcode:

var
  Form6: TForm6;
  OldProcForOpenSaveDialog: DWord;

implementation
.
.
.
.

function DialogProc(Handle: HWND; Msg: DWORD; wParam, lParam: Integer):Integer; stdcall;
const
  W = 683;
  H = 512;
begin
  if MSG = WM_SHOWWINDOW then Begin
    SendMessage(Handle, WM_COMMAND, $A004, 0);
    SendMessage(Handle, WM_COMMAND, $A004, 0);
    SetWindowPos(Handle, 0,
    Form6.Left + (Form6.Width div 2) - (W div 2),
    Form6.Top + (Form6.Height div 2) - (H div 2),
    W,
    H,
    0);
  End;
  Result := CallWindowProc(Pointer(OldProcForOpenSaveDialog), Handle, Msg, wParam, lParam);
end;

procedure TForm6.ColorDialog1Close(Sender: TObject);
var Handle: HWND;
begin
  Handle := GetParent((Sender as TColorDialog).Handle);
  SetWindowLong(Handle, DWL_DLGPROC, Integer(OldProcForOpenSaveDialog));
  OldProcForOpenSaveDialog := 0;
end;

procedure TForm6.ColorDialog1Show(Sender: TObject);
var Handle: HWND;
begin
  Handle := GetParent((Sender as TColorDialog).Handle);
  OldProcForOpenSaveDialog := GetWindowLong(Handle, DWL_DLGPROC);
  SetWindowLong(Handle, DWL_DLGPROC, Integer(@DialogProc));
end;

Was geht denn genau nicht?
Hast Du das mal schrittweise angesehen?

Es plobt nicht in der mitte der Form auf auch wenn ich Sie verschiebe.

Immer nur in der mitte vom screen

Werden die Prozeduren korrekt abgearbeitet?
Was steht in Form6.Left und Width?

Die proceduren Arbeiten

Im OI Top = 0 und Left = 0

aber das ändert sich ja zur laufzeit immerwieder wenn man die Form verschiebt

... soll sich ja auch ändern

Hier
Form6.Left + (Form6.Width div 2) - (W div 2),
Form6.Top + (Form6.Height div 2) - (H div 2),
kannst Du Dir doch ansehen, was genau zugewiesen wird...

Sonst weiß ich auch nicht...

stahli