EControl Syntax Editor SDK
Example
procedure TSyntEditMain.SyntaxMemo1IncSearchChange(Sender: TObject;
  State: TIncSearchState);
begin
  if State <> isStop then
   SB.SimpleText := 'Search for: ' + (Sender as TSyntaxMemo).IncSearchStr
  else
   SB.SimpleText := '';
  SB.SimplePanel := State <> isStop;
end;
Copyright (c) 2004-2011. All rights reserved.