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
Código:
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