SelChange Notifier für TEdit

[Bummi]

Quick and Dirty, aber vielleicht kannst Du daraus was sauberes bauen

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TEdit=Class(StdCtrls.TEdit)
  private
    public
    procedure DefaultHandler(var Message); override;
  End;
  TForm1 = class(TForm)
    Edit1: TEdit;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


var
 FReentranceProhibit:Boolean;
procedure TEdit.DefaultHandler(var Message);
begin
  inherited;
      if FReentranceProhibit then exit
      else
        begin
          FReentranceProhibit := true;
          Form1.Caption := IntToStr(SelLength);
          FReentranceProhibit := false;
        end;

end;


end.