Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.037 c
1-33610
Qwerr
2003-09-01 12:48
2003.09.11
Проблема с текстовым полем (String)


7-33823
Zilog
2003-06-16 14:31
2003.09.11
Как можно организовать передачу данных по паре?


9-33416
Omar2002
2003-03-06 16:33
2003.09.11
DelphiX


4-33850
GuestTM
2003-07-09 05:31
2003.09.11
Непонятки с POSTMESSAGE


3-33433
Жук
2003-08-21 14:56
2003.09.11
Скрипт данных из одной БД и





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский