Отслеживать имя текущего компонента

Delphi , ОС и Железо , Сообщения Windows

unit FCForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    StatusBar1: TStatusBar;
  public
    procedure CmFocusChanged (var Msg: TCmFocusChanged);
      message cm_FocusChanged;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CmFocusChanged (var Msg: TCmFocusChanged);
begin
  StatusBar1.SimpleText := Msg.Sender.Name;
end;

end.

Загрузить исходный код проекта

Программа на Delphi, которая отслеживает имя текущего компонента.

Код определяет форму с тремя редактируемыми полями (Edit1, Edit2 и Edit3) и статусной строкой (StatusBar1). Форма также имеет процедуру CmFocusChanged, которая слушает сообщение cm_FocusChanged. Это сообщение отправляется, когда фокус изменяется от одного компонента к другому.

Когда это сообщение получено, процедура устанавливает текст статусной строки в имя компонента, который потерял фокус, используя свойство Msg.Sender.Name.

Директива {$R *.DFM} указывает компилятору включить файл дизайна формы (*.DFM) в проект.

Код хорошо организован и легко понятен. Однако он может быть улучшен добавлением комментариев, чтобы объяснить, что каждый раздел кода делает. Вот некоторые предложения:

1. Добавьте комментарий на верху модуля, чтобы описать его цель.
2. Добавьте комментарии над каждой процедурой или функцией, чтобы объяснить, что она делает.
3. Рассмотрите использование более описательного имени переменной вместо Msg. Например, вы можете использовать FocusChangedMessage, чтобы указать, что это сообщение связано с изменениями фокуса.

Вот альтернативное решение:

Вместо использования сообщения cm_FocusChanged можно использовать событие OnFocusChange каждого редактируемого поля. Это позволит установить текст статусной строки более прямо, не обрабатывая сообщение.

Например:

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    StatusBar1: TStatusBar;
    procedure Edit1FocusChange(Sender: TObject);
    procedure Edit2FocusChange(Sender: TObject);
    procedure Edit3FocusChange(Sender: TObject);
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Edit1FocusChange(Sender: TObject);
begin
  StatusBar1.SimpleText := 'Edit1';
end;

procedure TForm1.Edit2FocusChange(Sender: TObject);
begin
  StatusBar1.SimpleText := 'Edit2';
end;

procedure TForm1.Edit3FocusChange(Sender: TObject);
begin
  StatusBar1.SimpleText := 'Edit3';
end;

В этом коде используется событие OnFocusChange каждого редактируемого поля, чтобы установить текст статусной строки при изменении фокуса. Это более прямой и понятный подход, чем использование обработчика сообщения.

В статье описывается создание компонента, который отслеживает имя текущего компонента и выводит его в статус бар при изменении фокуса.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Сообщения Windows ::