OnClick wird nicht ausgeführt

[DeddyH]

Das kann ich bestätigen. Schnell zusammengeschusterter Workaround:

Delphi-Quellcode:

const PM_MSG = WM_USER + 42;

type
  TForm1 = class(TForm)
    ...
  private
    { Private-Deklarationen }
    procedure PMMsg(var Message: TMessage); message PM_MSG;
    ...
  end;

...

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  PostMessage(Handle, PM_MSG, 0, 0);
end;

procedure TForm1.PMMsg(var Message: TMessage);
begin
  ShowMessage('Enter');
end;

Hth