VPF::Жесткий фокус окна - Форум программистов

uvsoft

Дата 23.6.2005, 21:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 123
Регистрация: 4.2.2003

Репутация: нет
Всего: нет

Нужен жесткий фокус окна, что б как только, так сразу... SetActiveWindow хреново работает (запускается, например, диспетчер задач и фокус на нем же и остается - никакого эффекта) , Альт-Табить тож как-то неочень...
Спасиб

--------------------

Старый глюк лучше новых двух.

Poseidon

Дата 23.6.2005, 22:31 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133

Что-то я этот русский плохо понимаю, но все же попробуй искать окно не через SetActiveWindow, а через FindWindow.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Quadr0

Дата 23.6.2005, 23:06 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 22:20

Rrader

Дата 24.6.2005, 10:24 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191

Это может быть чревато глюками, если два окна будут стремиться иметь такой фокус.

Код


type    
  TForm1 = class(TForm)    
    procedure FormCreate(Sender: TObject);    
  private    
    { Private declarations }    
  public    
    procedure OnDeactivateProc(Sender: TObject);    
    { Public declarations }    
  end;    
var    
  Form1: TForm1;   
 
implementation    

{$R *.dfm}    

procedure TForm1.OnDeactivateProc(Sender: TObject);    
var    
  SubH: THandle;    
begin    
  SubH := GetForegroundWindow;    
  if SubH <> Handle then    
  begin    
    SetWindowPos(SubH, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);    
    SetForegroundWindow(Handle);    
  end;    
end;    

procedure TForm1.FormCreate(Sender: TObject);    
begin    
  SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW or SWP_NOSIZE or SWP_NOMOVE);    
  Application.OnDeactivate := OnDeactivateProc;    
end;  
  
end.

Это сообщение отредактировал(а) Rrader - 28.11.2008, 17:42

--------------------

Let's do this quickly!
Rest in peace, Vit!

Girder

Дата 24.6.2005, 13:01 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 25
Всего: 155

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 Timer1.Interval:=10;
 Timer1.Enabled:=true; //Запускаем
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Timer1.Enabled:=false; //При закрытии останавливаем
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var ID,w:DWord;
begin
 Timer1.Enabled:=false;
 w:=GetForegroundWindow();
 ID:=GetWindowThreadProcessId(w,nil);
 if (ID<>GetCurrentThreadID) then
  begin
   Sleep(100);
   AttachThreadInput(GetCurrentThreadID,ID,true);
   SetWindowPos(w,HWND_NOTOPMOST,0,0,0,0,SWP_FRAMECHANGED or SWP_NOMOVE or SWP_NOSIZE);
   SetWindowPos(Form1.Handle,HWND_TOP,Left,Top,Width,Height,SWP_FRAMECHANGED);
   AttachThreadInput(GetCurrentThreadID,ID,false);
  end;
 Timer1.Enabled:=true;
end;

end.

--------------------

Как слышим, так и пишим.
Истина где-то там...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »