Текущий архив: 2003.09.11;
Скачать: CL | DM;
Вниз
Переключение между приложениями Найти похожие ветки
← →
BanderLog (2003-09-01 12:59) [0]Кто знает подскажите и громко не смейтесь, необходимо выполнить некие действия когда пользователь переключается на мою программу из других приложений. Куда приладить эти самые действия?
← →
MBo (2003-09-01 13:16) [1]Application.OnActivate
← →
BanderLog (2003-09-01 13:19) [2]Было бы всё так просто :(
Note: The OnActivate event of the application (TApplication), not the form, occurs when control switches from another application.
← →
Skier (2003-09-01 13:21) [3]>BanderLog © (01.09.03 13:19)
И что ?
← →
BanderLog (2003-09-01 13:26) [4]А то, что не срабатывает когда переключаешся из друго приложения на свое.
← →
MBo (2003-09-01 13:29) [5]у всех срабатывает...
← →
BanderLog (2003-09-01 13:36) [6]Странно, а у меня не срабатывает. :(
Правда присутствует в проекте скрытая форма которая и является главной, но не срабатывают OnActive ни у неё ни у видимой.
← →
[lamer]Barmaglot (2003-09-01 13:39) [7]Тогда юзай WinAPI, срабатывать должно везде и всегда :-).
Лови код...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
private
{ Private declarations }
public
{ Public declarations }
procedure WMActivate(var Message: TWMActivate); message WM_ACTIVATE;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
Procedure TForm1.WMActivate(var Message: TWMActivate);
begin
if (Message.Active=WA_INACTIVE) then label1.Caption:="chiater";
if (Message.Active=WA_CLICKACTIVE) or (Message.Active=WA_ACTIVE) then label1.Caption:="lamer";
end;
end.
← →
BanderLog (2003-09-01 13:59) [8]2 [lamer]Barmaglot: Огромно спасибо проблема решена, хотя сначала тупанул и в процедуре прописал ShowMessage("Active"), так задолбался закрывать сообщения об ошибках. :о)
Страницы: 1 вся ветка
Текущий архив: 2003.09.11;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.008 c
