TEDit not firing OnChange when echoMode=emPassword

Original Reporter info from Mantis: Hansaplast

• Reporter name: Hans Luijten

Description:

The TEdit "OnChange" event never fires when "echoMode" is set to "emPassword".
Under Windows this event does fire.

Note: The "OnKeyUp" event does fire just fine, so I use this as a workaround right now.

Steps to reproduce:

Add TEDit and TLabel to a new form, and add an OnChange event to the TEdit which sets the TLabel caption to the TEdit text.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    procedure Edit1Change(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Label1.Caption:=Edit1.Text;
end;

end.       

Additional information:

Lazarus 2.1.0 r62008M
FPC 3.0.4
x86_64-darwin-cocoa (beta)

Forum post: https://forum.lazarus.freepascal.org/index.php/topic,47012.0.html

Mantis conversion info:

• Mantis ID: 36158
• OS: macOS
• OS Build: 10.14.x
• Build: 62008
• Platform: Cocoa
• Version: 2.0.5 (SVN)
• Fixed in revision: 62054 (#343916af)