Форум: "Основная";
Текущий архив: 2003.09.11;
Скачать: [xml.tar.bz2];

Вниз

Переключение между приложениями   Найти похожие ветки 

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.012 c