[Artikel] Den ExitCode eines Dialogfensters nutzen

[Luckie]

Beim Refactoring des Usermanagers bin ich auf ein Problem gestossen, was ich bisher eher unbefriedigend gelöst habe. Dies mal aber habe ich, eine für mich, befriedigende Lösung gefunden, wie ich denke. In diesen Artikel geht es um das Problem und wie ich es dann gelöst habe.

Artikel: Den ExitCode eines Dialogfensters nutzen

[NicoDE]

Zitat von Luckie:

Ja wer holt sich den Zeiger, aber er kennt doch die Struktur nicht, die dahinterliegt, weil diese Struktur doch nur im Hauptprogramm definiert ist oder wo hast du sie definiert?

Die Struktur ist dort definiert, wo der Dialog auch definiert ist (oder eben global). Bedingung ist dann natürlich, dass der Dialog mit diesem Parameter aufgerufen wird (wie bei allen anderen APIs auch).

Ich glaube es ist einfacher wenn ich ein Beispiel dazu schreibe, aber im Moment fehlt mir die Zeit dazu...

[Luckie]

Ach so, dann ist alles klar, denn dann kennt auch das Hauptprogramm die Struktur, da man ja die Unit des Dialoges vorher im Hauptprogramm einbinden muss. Ich werde es heute Abend mal probieren.

[himitsu]

Also diese Window Properties klingen ja wirklich nicht schlecht.

Derzeit speichere/lese ich meinen Zeiger per SetWindowLong und GetWindowLong im UserBereich ... sollte ich da auch besser umsteigen, oder ist dieses auch OK?

Klar, der Vorteil bei den Properties wäre natürlich, daß da über 'nem Namen und nicht mit 'ner "Nummer" auf die Daten zugegriffen werden kann.

[NicoDE]

Hier das angekündigte Beispiel (schnell runtergeschrieben, statt eines Ressourcenskriptes habe ich DialogBoxIndirect verwendet (einfach um das Beispiel auf den Quellcode zu beschränken))

Delphi-Quellcode:

unit FooDlg;

interface

{$MINENUMSIZE 4}

uses
  Windows;

type
{$IFDEF UNICODE}
  TextString = System.WideString;
{$ELSE !UNICODE}
  TextString = System.AnsiString;
{$ENDIF UNICODE}

type
  TFooModalResult = (
    foomrNone,
    foomrOk,
    foomrCancel
  );

type
  TFooDialogParam = record
    Parent: HWND;        // in
    Text  : TextString;  // in/out
  end;

type
  TFooDialog = class
  private
    FText: TextString;
  public
    class function ShowModal(var AParam: TFooDialogParam): TFooModalResult;
  end;

implementation

{$EXTENDEDSYNTAX ON}

uses
  Messages;

const
  FooDialogTemplate: packed record
    Dialog: packed record
      Header  : TDlgTemplate;
      Menu    : array [0..0] of WideChar;
      WndClass: array [0..0] of WideChar;
      Title   : array [0..3] of WideChar;
      Points  : Word;
      Weight  : Word;
      Italic  : Byte;
      Charset : Byte;
      FontFace: array [0..12] of WideChar;
    end;
    __align0: Word;
    Edit: packed record
      Header    : TDlgItemTemplate;
      WndClass  : array [0..1] of WideChar;
      Title     : array [0..0] of WideChar;
      ExtraCount: Word;
    end;
    __align1: Word;
    ButtonOk: packed record
      Header    : TDlgItemTemplate;
      WndClass  : array [0..1] of WideChar;
      Title     : array [0..3] of WideChar;
      ExtraCount: Word;
    end;
    ButtonCancel: packed record
      Header    : TDlgItemTemplate;
      WndClass  : array [0..1] of WideChar;
      Title     : array [0..7] of WideChar;
      ExtraCount: Word;
    end;
  end = (
    Dialog: (
      Header: (
        style          : WS_VISIBLE or WS_POPUP or WS_CAPTION or WS_SYSMENU or
                         DS_MODALFRAME or DS_SETFONT or DS_CENTER;
        dwExtendedStyle: 0;
        cdit           : 3;
        x              : 0;
        y              : 0;
        cx             : 4 + 100 + 4;
        cy             : 4 + 60 + 2 + 12 + 4
      );
      Menu    : (#0);
      WndClass: (#0);
      Title   : ('F', 'o', 'o', #0);
      Points  : 8;
      Weight  : FW_NORMAL;
      Italic  : Ord(False);
      Charset : DEFAULT_CHARSET;
      FontFace: ('M', 'S', ' ', 'S', 'h', 'e', 'l', 'l', ' ', 'D', 'l', 'g', #0)
    );
    Edit: (
      Header: (
        style          : WS_VISIBLE or WS_CHILD or WS_TABSTOP or
                         ES_MULTILINE or ES_WANTRETURN or
                         WS_VSCROLL or WS_HSCROLL or
                         ES_AUTOVSCROLL or ES_AUTOHSCROLL;
        dwExtendedStyle: 0;
        x              : 4;
        y              : 4;
        cx             : 100;
        cy             : 60;
        id             : 100
      );
      WndClass  : (#$FFFF, #$0081);
      Title     : (#0);
      ExtraCount: 0
    );
    ButtonOk: (
      Header: (
        style          : WS_VISIBLE or WS_CHILD or WS_TABSTOP or
                         BS_DEFPUSHBUTTON;
        dwExtendedStyle: 0;
        x              : 4 + 100 - 38 - 2 - 38;
        y              : 4 + 60 + 2;
        cx             : 38;
        cy             : 12;
        id             : ID_OK;
      );
      WndClass  : (#$FFFF, #$0080);
      Title     : ('&', 'O', 'K', #0);
      ExtraCount: 0
    );
    ButtonCancel: (
      Header: (
        style          : WS_VISIBLE or WS_CHILD or WS_TABSTOP or
                         BS_PUSHBUTTON;
        dwExtendedStyle: 0;
        x              : 4 + 100 - 38;
        y              : 4 + 60 + 2;
        cx             : 38;
        cy             : 12;
        id             : ID_CANCEL;
      );
      WndClass  : (#$FFFF, #$0080);
      Title     : ('&', 'C', 'a', 'n', 'c', 'e', 'l', #0);
      ExtraCount: 0;
    )
  );

function FooDialogProc(ADlg: HWND; AMsg: UINT; WParam: WPARAM; LParam: LPARAM): Integer stdcall;
const
  PropName = 'Instance';
var
  PropInst: TFooDialog;
  EditText: HWND;
begin
  Result := Ord(True);
  case AMsg of
    WM_INITDIALOG:
      begin
        PropInst := TFooDialog(LParam);
        SetProp(ADlg, PropName, THandle(PropInst));
        if Assigned(PropInst) then
        begin
          EditText := GetDlgItem(ADlg, FooDialogTemplate.Edit.Header.id);
          if EditText <> 0 then
            SetWindowText(EditText, PChar(PropInst.FText));
        end;
      end;
    WM_NCDESTROY:
      RemoveProp(ADlg, PropName);
    WM_CLOSE:
      EndDialog(ADlg, Integer(foomrNone));
    WM_COMMAND:
      case HiWord(WParam) of
        BN_CLICKED:
          begin
            case LoWord(WParam) of
              ID_OK:
                begin
                  PropInst := TFooDialog(GetProp(ADlg, PropName));
                  if Assigned(PropInst) then
                  begin
                    EditText := GetDlgItem(ADlg, FooDialogTemplate.Edit.Header.id);
                    if EditText <> 0 then
                    begin
                      SetLength(PropInst.FText,
                        GetWindowTextLength(EditText) + 1);
                      SetLength(PropInst.FText,
                        GetWindowText(EditText, PChar(PropInst.FText),
                        Length(PropInst.FText)));
                    end;
                  end;
                end;
            end;
            EndDialog(ADlg, LoWord(WParam));
          end;
      else
        Result := Ord(False);
      end;
  else
    Result := Ord(False);
  end;
end;

class function TFooDialog.ShowModal(var AParam: TFooDialogParam): TFooModalResult;
var
  FooDialog: TFooDialog;
begin
  FooDialog := TFooDialog.Create();
  try
    FooDialog.FText := AParam.Text;
    Result := TFooModalResult(
      DialogBoxIndirectParam(HInstance, FooDialogTemplate.Dialog.Header,
        AParam.Parent, TFNDlgProc(@FooDialogProc), Integer(FooDialog)));
    AParam.Text := FooDialog.FText;
  finally
    FooDialog.Free();
  end;
end;

end.

Der Aufruf sieht dann etwa so aus:

Delphi-Quellcode:

var
  Param: TFooDialogParam;
begin
  Param.Parent := ParentHandle;
  Param.Text   := 'Foo'#13#10'Bar';
  case TFooDialog.ShowModal(Param) of
    foomrOk:
      MessageBox(Param.Parent, PChar(Param.Text), '[OK]', MB_OK);
    foomrCancel:
      MessageBox(Param.Parent, PChar(Param.Text), '[Cancel]', MB_OK);
  else
    MessageBox(Param.Parent, PChar(Param.Text), 'Dialog closed', MB_OK);
  end;
end;

[Luckie]

Ui. Da muss ich erstmal gucken, wo du die Daten ablegst und wie du sie wieder hervorzauberst.

[NicoDE]

Zitat von Luckie:

Ui. Da muss ich erstmal gucken, wo du die Daten ablegst und wie du sie wieder hervorzauberst.

Ich speichere im Beispiel einfach die Instanz im einzige Property ab. Man hätte das auch über Get/SetWindowLong(GWL_USERDATA) lösen können. Eigentlich würde ich eher dazu tendieren es objekt-orientierter zu lösen (im Moment gibt es ja nur eine Class-Funktion)... aber wie immer keine Zeit

[Luckie]

Das mit der Klasse verkompliziert das eigentlich mehr.

[NicoDE]

Zitat von Luckie:

Das mit der Klasse verkompliziert das eigentlich mehr.

Dann lass sie eben weg und übergebe einen Zeiger auf die Struktur als Parameter

[Luckie]

So gerade ausprobiert: Einen Dialog kann man auch einfach mit EndDialog schließen. man muss also kein WM_CLOSE shcicken und dann auf WM_CLOSE reagieren. Somit kommt meine Methode auch ohne eine globale Variable in der Unit für den zweiten Dialog aus. Nur die Struktur muss global in der Unit sein.

Ich glaube, dabei bleibe ich auch. Nicos Methode ist mir doch etwas zu kompliziert muss ich ehrlich sagen.

[NicoDE]

Zitat von Luckie:

Nicos Methode ist mir doch etwas zu kompliziert muss ich ehrlich sagen.

Man gewöhnt sich daran (ich bevorzuge eine klare Trennung, wem welche Daten gehören (müssen))
Ich finde den Missbrauch des Exit-Codes bedenklicher als mein dahingeschludertes Beispiel