Neuer Ärger mit Vista TaskDialog

[Willie1]

Hallo Leute,
ich brauche nochmal eure Hilfe.
Ich will den Vista Taskdialog benutzen und muss feststellen, dass modales Öffnen von TaskDialogen nicht immer möglich ist:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ShowModal;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Form3: TForm3;
begin
  Form3:=TForm3.Create(Form1);
  try
    Form3.ShowModal;
  finally
    Form3.Free
  end;
end;

hier werden 2 neue Fenster aus einer Anwendung geöffnet (eines statisch und eines dynamisch), auf denen heraus jeweils ein TaskDialog geöffnet werden soll. Also 3 Ebenen Form1/Form2 bzw. Form3/TaskDialog.

Bei dem statischen Fenster klappt das modale Öffnen, wenn ich TASKDIALOGCONFIG hwndParent den Handle von Form2 zuweise.
Bei dem dynamischen Fenster führt das modale Öffnen zu einem Zugriffsfehler, wenn ich TASKDIALOGCONFIG hwndParent den Handle von Form3 zuweise!!!

Diese TaskDialoge werden doch fast immer modal geöffnet, sonst machen sie doch keinen Sinn.

Das an sich hilfreiche Demo-Programm von Luckie hilft nicht weiter, er öffnet kein Fenster modal.

MfG Willie1.

[Willie1]

Hi,
es tut sich nichts. Ist meine Frage zu schwer oder habe ich meine Frage falsch formuliert? Meldet euch doch mal.

W.

[Willie1]

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var
  Form3: TForm3;
begin
  Form3:=TForm3.Create(Form1);
  try
    ActivHandle:=Form3.Handle; //globale Variable
    Form3.ShowModal;
  finally
    Form3.Free
  end;
end;

So klappt es: Innerhalb von Form3 auf ActivHandle zugreifen. Ob das eine unverselle Lösung ist ... ?

Schönes Wochenende
Willie1

[Noobix93]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not form2.visible then
    Form2.ShowModal;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Form3: TForm3;
begin
  Form3:=TForm3.Create(Form1);
  try
    if not Form3.visible then 
      Form3.ShowModal;
  finally
    Form3.Free
  end;
end;

bitteschön

[Willie1]

Das hilft überhaupt nicht. Wenn ich versuche, den Handle von Form3 (dynamisch) zu benutzen, gibt es eine Zugriffsverletzung. Meine eigene Lösung funktioniert auch nicht richtig. Kann jeder mit ein paar Zeilen Code ausprobieren (Delphi 2005 und Turbo-Delphi)

Willie

[jaenicke]

Da du leider nicht dazu geschrieben hast welchen Quelltext du eigentlich benutzt, habe ich den Quelltext aus dem Artikel Using the new Windows Vista TaskDialog from Delphi & C++Builder für den TaskDialog benutzt. Und damit funktioniert das problemlos.

[Willie1]

Hallo Jaenicke, danke,

es klappt. Der entscheidene Punkt: ich benutzte Form3.Handle in dem Demo steht self.Handle. Du hat mir sehr geholfen!

Gruß und schönen Abend an die Delphianer
Willie