VPF::Как узнать что TListView получил или потерял фокус

Ak47black

Дата 11.10.2007, 15:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0

Здравствуйте.
Хочу узнать как отловить момент получения и потери фокуса у TListView.
Какой тут лучше способ? smile

Через главную процедуру (WndProc) или чтото другое есть?
Подскажите пожалуйста ктонибудь.

Это сообщение отредактировал(а) Ak47black - 11.10.2007, 15:53

VICTAR

Дата 11.10.2007, 16:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80

OnEnter OnExit?

Rennigth

Дата 11.10.2007, 16:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Ak47black, незнаю, мож стандартные эвенты есть, непомню. Но можно так:

Код


unit Unit16;

interface

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

type
  TForm16 = class(TForm)
    ListView1: TListView;
    Edit1: TEdit;
  private
    FWndProc: TWndMethod;
  protected
    procedure LVWndMethod(var VMessage: TMessage);
  public
    constructor Create(AOwner: TComponent); override;
  end;

var
  Form16: TForm16;

implementation

{$R *.dfm}

{ TForm16 }

constructor TForm16.Create(AOwner: TComponent);
begin
  inherited;
  FWndProc := ListView1.WindowProc;
  ListView1.WindowProc := LVWndMethod;

end;

procedure TForm16.LVWndMethod(var VMessage: TMessage);
begin
  if VMessage.Msg = WM_KILLFOCUS then
    Caption  := 'ListView is not focused'
  else
    if VMessage.Msg = WM_SETFOCUS then
      Caption  := 'ListView is focused';

  if Assigned(FWndProc) then
    FWndProc(VMessage);
end;

--------------------

(* Honesta mors turpi vita potior *)

Ak47black

Дата 11.10.2007, 17:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0

VICTAR, Ага вот это имеено я и хотел узнать, спс +.
Rennigth, можно и так, только тут больше кода.
Спасибо все кто участвовал.

Это сообщение отредактировал(а) Ak47black - 11.10.2007, 17:03

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »