[Delphi] FlashWindow i.c.m. ShowModal

[Icelus]

Ik open m.b.v. ShowModal een nieuw venster. Beide vensters zijn tegelijk zichtbaar op het scherm en de gebruiker moet (uiteraard) het 'nieuwe' venster sluiten voordat het 'oude' venster kan worden benadert.
Ik wil echter dat als de gebruiker probeert het niet-modal venster te benaderen het modal venster geflasht wordt m.b.v. de FlashWindow API functie.
Is dit mogelijk? (info die ik vind gaat alleen over FlashWindow i.c.m. een timer)

[Creepy]

Heb je het al uitgeprobeerd? Het lijkt me dat als je FlashWindow aanroept met het modal scherm dat dat modal scherm dan moet gaan flashen.

[Icelus]

Dat werkt wel. Het probleem is dat ik moet kunnen nagaan of het venster de focus verliest. Omdat dit echter een modal venster is is (laat Windows niet toe) dit niet mogelijk is.

[LordLarry]

Je zou ook zelf ShowModal kunnen na-apen door gewoon Show te gebruiken, maar zodra het oude venster geactivate wordt (OnActivate) gebruik je FlashWindow en zet je het nieuwe scherm naar de voorgrond met BringToFront.

[Verwijderd]

Ik snap de vraag eigenlijk niet, of denk dat je iets fout doet.

Als ik een application maak, en daarin het mainform een ander form modal laat weergeven, kan ik het mainform domweg geen focus meer geven. Als ik op het mainform klik, krijg ik direct het modal form en heeft dat ook de focus. De enige manier waarop dat form de focus kan kwijtraken, is als ik een andere applicatie activeer.

[Icelus]

Ok, ik heb het gevonden:

Delphi:

interface

type  TForm = class(TForm)
       public
         procedure CreateParams(var Para: TCreateParams); override;
      end;

implementation

procedure TForm.CreateParams(var Para: TCreateParams);
begin
  inherited;
  Para.WndParent := GetActiveWindow;
end;

Bovenstaande in modal-venster zetten. Wanneer er nu buiten het modal-venster wordt geklikt flasht de titel van het modal-venster.