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

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

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

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


- Что общего между Женщиной и Windows?
- И с тем, и с другим приходится трахаться.
- А в чем различие?
- С Женщиной, приятней. Но с 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.

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

Статья Отслеживать имя текущего компонента раздела ОС и Железо Сообщения Windows может быть полезна для разработчиков на Delphi и FreePascal.


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


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

заголовок

e-mail

Ваше имя

Сообщение

Введите код




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



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


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
02.07.2022 02:36:07/0.00094914436340332/0