🚀 go-pugleaf

Hi,
  If you want to flash the modal Form2 when the user clicks Form1, there are
two things that you need to do: (1) Determine when the user clicks Form1;
and (2) flash the title bar of Form2.  For the first step, you'll need to
handle the WM_SETCURSOR message, looking for a hit-test value [specified via
LOWORD(lParam)] of 0xFFFE (effective HTERROR), and a mouse-message value
[specified via HIWORD(lParam)] corresponding to a release of one of the
mouse buttons.  For the second step, as Bob mentioned, you can use the
FlashWindow() Win32 function [or the new FlashWindowEx() function if you
deploy only on systems greater than Win95/NT].  The FlashWindow() function
needs to be called in a non-blocking, interative fashion.  Here's a rough
example...

// in header...
class TForm1 : public TForm
{
__published:
  TButton *Button1;
  TTimer *Timer1;
  void __fastcall Button1Click(TObject *Sender);
  void __fastcall Timer1Timer(TObject *Sender);

public:
  __fastcall TForm1(TComponent* Owner) : 
    TForm(Owner), ModalForm_(NULL) {}

private:
  TForm* ModalForm_;
  MESSAGE void __fastcall WMSetCursor(TMessage& Msg);

public:
BEGIN_MESSAGE_MAP
  MESSAGE_HANDLER(WM_SETCURSOR, TMessage, WMSetCursor)
END_MESSAGE_MAP(TForm)
};


// in source...
void __fastcall TForm1::Button1Click(TObject* Sender)
{
  ModalForm_ = Form2;
  try
  {
    ModalForm_->ShowModal();
    // ...
  }
  __finally
  {
    ModalForm_ = NULL;
  }
}

void __fastcall TForm1::WMSetCursor(TMessage& Msg)
{
  TForm::Dispatch(&Msg);
  if (ModalForm_ != NULL &&
      ModalForm_->FormState.Contains(fsModal))
  {
    if (LOWORD(Msg.LParam) == 0xFFFE &&
        (HIWORD(Msg.LParam) == WM_LBUTTONUP ||
         HIWORD(Msg.LParam) == WM_MBUTTONUP ||
         HIWORD(Msg.LParam) == WM_RBUTTONUP))
    {
      Timer1->Enabled = true;
    }
  }
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  static unsigned char tic = 0;
  if (++tic < 9 && ModalForm_ != NULL)
  {
    try
    {
      FlashWindow(ModalForm_->Handle, true);
    }
    catch (...)
    {
      Timer1->Enabled = false;
      // reset, but be sure to debug the error condition 
      FlashWindow(ModalForm_->Handle, false);
      // reset, but be sure to debug the error condition 
      tic = 0; 
      throw;
    }
  }
  else
  {
    Timer1->Enabled = false;  
    FlashWindow(ModalForm_->Handle, false);
    tic = 0;
  }
}

Note that you'll need to add more robust error-handling because you don't
want to re-enable Timer1 in reponse to WM_SETCUROR if an exception is
(re)thrown within the OnTimer event handler.  Timer1 should be initially
disabled (e.g., at design time); and you'd set Timer1's Interval property to
adjust the pause between flashes (50ms seems about what Windows uses).

Good luck,
-- 
Damon (TeamB)
BCBCAQ - http://bcbcaq.bytamin-c.com


b wrote:
> 
> Yes, so how is possible to use FlashWindow ??
> 
> "JD" <nospam@nospam.com> ha scritto nel messaggio
> news:3f07c2aa$1@newsgroups.borland.com...
> >
> > "Remy Lebeau \(TeamB\)" <gambit47@yahoo.com> wrote:
> > > I still do not understand what you are after.
> >
> > He wants to launch Form2 from Form1 using Form2->ShowModal();
> > Then, if the user tries to return to Form1 before Form2 is
> > closed, he wants to flash Form2 as a visual que to remind the
> > user to close Form2 first.