Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Показать вторую форму, а заголовок первой оставить активным

Delphi , Программа и Интерфейс , Заголовок формы

Показать вторую форму, а заголовок первой оставить активным


procedure TForm2.FormActivate(Sender: TObject);
begin 
  SendMessage(Application.MainForm.Handle, WM_NCACTIVATE, Boolean(True), 0); 
end;

Here is the translation of the text into Russian:

Процедура FormActivate используется для обработки активации формы в приложении Delphi.

В этом коде, когда форма активируется, она отправляет сообщение Windows WM_НCACTIVATE своей основной форме, указывая, что состояние активности изменилось и новая активная форма - та, которая была previously неактивна.

Чтобы достичь требуемого результата, код можно модифицировать следующим образом:

procedure TForm1.FormActivate(Sender: TObject);
begin
  Caption := 'Активна'; // Изменить заголовок формы Form1
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
  SendMessage(Application.MainForm.Handle, WM_НCACTIVATE, MakeLParam(0, TRUE), 0);
end;

В этом коде, когда форма Form1 активируется, ее заголовок будет изменен на 'Активна'. Когда форма Form2 активируется, она отправит сообщение WM_НCACTIVATE своей основной форме, указывая, что состояние активности изменилось и новая активная форма - та, которая была previously неактивна. Второй параметр функции MakeLParam(0, TRUE) представляет собой состояние активности, которое установлено в значение TRUE.

Обратите внимание: вам нужно импортировать сообщения Windows на верхушке вашего модуля:

uses
  WinAPI.Windows;

И определить функцию MakeLParam:

function MakeLParam(lLoord, lHiword: Longint): Longint;
begin
  Result := (lLoord and $FFFF) or ((lHiword and $FFFF0000) shr 16);
end;

Процедура TForm2.FormActivate(sender: tobject) изменяет видимость активной формы ActiveForm на True при ее激ativации.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Заголовок формы ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-06-02 10:20:12
2024-07-13 05:18:02/0.0033388137817383/0