Показать сообщение отдельно
  #2  
Старый 12.07.2018, 01:19
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну, предаставленный код вполне правильный.
Просто внутри обработчика надо обращаться к тому компоненту, который вызвал этот обработчик, а не пытаться что-то вычислять, типа как-то так:
Код:
procedure TForm1.myGutterClick(Sender: TObject; Button: TMouseButton; X, Y, Line: Integer; Mark: TSynEditMark);
var
  sed : TSynEdit;
begin
  If Sender Is TSynEdit Then
    Begin
      sed := Sender As TSynEdit;
      ...
      код с обращением через 'sed.'
     ...
  End;
end;
Ответить с цитированием