[angvelem]

Для TrackBar-а

Код:

  TTrackBar = class(ComCtrls.TTrackBar)
    procedure CreateParams(var Params: TCreateParams); override;
  end;
...
procedure TTrackBar.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  // код
end;

Для Edit-а аналогично.

P.S. Форум затормозил и прошло 2 сообщения.