Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Изменение текста в Caption

Аноним
Подскажите пожалуйста начинающему.
Как изменить текст в Caption формы, в зависимости активная она или нет.
Заранее признателен.
591
14 октября 2001 года
x77
40 / / 20.03.2000
Что значит "активная"? Активной считается форма, имеющая фокус ввода, если вы с приложения переключаетесь на другое окно, форма всё равно остаётся активной. Если требуется отлавливать переключения между формами в пределах приложения, то воспользуйтесь событиями формы OnActivate, OnDeactivate. Если требуется реагировать на момент, когда пользователь переключается на другую программу, то это делается на уровне
Application.

<TABLE BORDER=0 ALIGN=CENTER WIDTH=85%><TR><TD>Code:<HR></TD></TR><TR><TD><FONT SIZE=-1><PRE>type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure ChangeCaption (Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ChangeCaption(Sender: TObject);
begin
if Application.Active then
Application.MainForm.Caption := 'Active'
else
Application.MainForm.Caption := 'Inactive'
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnActivate := ChangeCaption;
Application.OnDeActivate := ChangeCaption;
end;</PRE></FONT></TD></TR><TR><TD><HR></TD></TR></TABLE>

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог