Problem developing GUI in lister plugin

[kajoj1]

I'm programming VisualDirSize plugin and I have bug that I cannot fix.

Here is my problem :
1. Run VisualDirSize
2. Open the config dialog for VisualDirSize
3. Put focus on any other window
4. Return to Total Commander - the dialog is gone and it's impossible to get to it

The solution is to kill TC or use Alt+Esc to cycle through open applications - sometimes
missing dialog is displayed.

I'm using standard method to generate modal window. This code compiled in Delphi 7 or 2005
generates that bug mentioned above. If someone could help me with it...

Code: Select all

procedure TMyForm.ToolButton17Click(Sender: TObject);
var
  Form2: TForm2;
begin
   Form2 := TForm2.Create(Application);
    try
      Form2.ShowModal 
    finally
      Form2.Release;
    end;
end;

[sqa_wizard]

I don't know Delphi very well, but this could be related to ModalPopupMode ( see http://blogs.borland.com/abauer )

[SanskritFritz]

That is a known Delphi bug, TOAD has it too
Maybe from the TOAD forum can get help:
http://groups.yahoo.com/group/toad/

[kajoj1]

It seems to be fixed. I used Application.Handle property.

procedure TMyForm.ToolButton17Click(Sender: TObject);
var
Form2: TForm2;
begin
Application.Handle := ParentWin; // Taken from function ListLoad(ParentWin:thandle;FileToLoad:pchar;ShowFlags:integer):thandle;
Form2 := TForm2.Create(Application);
try
Form2.ShowModal
finally
Form2.Release;
Application.Handle := 0; //I noticed that it have to be 0 if not I get system error, code:1400, Invalid window handle
end;
end;

But frankly speaking I don't know if it always works... It must be tested...

[rolandd]

2kajoj1

Will be glad to test