Capturar El Evento Del Cambio De Foco En Un Form

[Descendents]

Yo pense que era el cambio de foco entre forms.

He hecho esta unidad de prueba y en delphi 7 me funciona pruebalo tu haber que tal.

Es simplemente una reproduccion del codigo interior de este procedimiento que lleva delphi.

Dime algo

Suerte

unit Unit1;

interface

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

const
  CM_BASE = $B000;
  CM_FocusMiPropioChange = CM_BASE + 7;

type

  TCMFocusMiPropioChange = record
    Msg: Cardinal;
    Unused: Integer;
    Sender: TWinControl;
    Result: Longint;
  end;

  TForm1 = class(TForm)
  private
    { Private declarations }
  public
  procedure CMFocusMiPropioChange(var Message: TCMFocusMiPropioChange); message CM_FocusMiPropioChange;
    { Public declarations }
  end;




var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure Tform1.CMFocusMiPropioChange(var Message: TCMFocusMiPropioChange);
begin
  showmessage('cambio de foco');
end;

end.

Simplemente copiate todo el código en una unidad nueva y pon tres edits o cuantos quieras y cambia de foco.Haber si con delphi 8 funciona

Suerte


Saludos