🚀 go-pugleaf

"Rodolfo Frino" <rodolfowrvxg527u7qfrino@yahoo.com.jki> wrote in message
news:3fa1b607$1@newsgroups.borland.com...

> FindWindow(NULL, DialogTitle ),  // handle of window

Better to just use the actual Title:

    if( !OpenDialog1->Title.IsEmpty() )
        FindWindow(NULL, OpenDialog1->Title.c_str() )
    else
        FindWindow(NULL, "Open" )

Now, with that said, using the OnShow event is too soon to move the dialog,
and using the OnSelectionChanged event is too late to prevent the dialog
from noticably flickering from one position to another.  The following code
works for me in delaying the moving while also hiding the flickering:

    #define APPWM_MOVE_OPENDIALOG  (WM_APP + 100)

    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
        OpenDialog1->Execute();
    }

    void __fastcall TForm1::OpenDialog1Show(TObject *Sender)
    {
        SendMessage(GetDesktopWindow(), WM_SETREDRAW, FALSE, 0);
        PostMessage(Handle, APPWM_MOVE_OPENDIALOG, 0, 0);
    }

    void __fastcall TForm1::WndProc(TMessage &Message)
    {
        if( Message.Msg == APPWM_MOVE_OPENDIALOG )
        {
            SetWindowPos(GetParent(OpenDialog1->Handle), NULL,
Message.WParam, Message.LParam, 0, 0, SWP_NOSIZE|SWP_NOZORDER);

            SendMessage(GetDesktopWindow(), WM_SETREDRAW, TRUE, 0);
            InvalidateRect(NULL, NULL, TRUE);

            Message.Result = TRUE;
        }
        else
            TForm::WndProc(Message);
    }


Gambit