Further to that, it seems to be when I have an edit control on the form?

Does that help?

Matt.
----- Original Message -----
From: Chris Crowe <[EMAIL PROTECTED]>
To: Multiple recipients of list delphi <[EMAIL PROTECTED]>
Sent: Tuesday, July 27, 1999 7:38 AM
Subject: RE: [DUG]: Deativation.


> try
>
> unit Unit1;
>
> interface
>
> uses
>   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs;
>
> type
>   TForm1 = class(TForm)
>   private
>     { Private declarations }
>   public
>     { Public declarations }
>     procedure KillFocus(var message : TWMKillFocus); message WM_KILLFOCUS;
>   end;
>
> var
>   Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
>
> procedure TForm1.KillFocus(var message : TWMKillFocus);
> begin
>    SetActiveWindow(Handle);
> end;
>
>
> end.
>
> It sort of works quite well, but I think you do loose focus for a split
> second.
>
> chris
>
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of Matthew Comb
> Sent: Monday, July 26, 1999 4:38 PM
> To: Multiple recipients of list delphi
> Subject: [DUG]: Deativation.
>
>
> Is it possible to make it IMpossible to deativate an application. I
> basically want to be able to run an app that as well as staying to the
> front, can not lose focus by the user clicking on other applications.
>
> Is there a way I can override some windows messages to achieve this?
>
> Cheers,
>
> Matt.
>
> --------------------------------------------------------------------------
-
>     New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
>                   Website: http://www.delphi.org.nz
>
> --------------------------------------------------------------------------
-
>     New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
>                   Website: http://www.delphi.org.nz
>
>

---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz

Reply via email to