[vas31]

Доброго времени суток!

По клику на кнопку создаю новый 'TabSheet', далее в нём создаю новый экземпляр компонента 'SynEdit'.
Присваиваю обработчику 'OnGutterClick' этого компонента свою процедуру 'myGutterClick'.
Когда создан один экземпляр 'SynEdit', то всё отрабатывает нормально. Но стоит создать ещё несколько
экземпляров SynEdit-а (несколько табов), то мой обработчик события отрабатывает только на последнем
созданном SynEdit-е.

В интернете описываются случаи или с назначением на всего один экземпляр компонента (как правило кнопки)
или приводятся такие примеры, что пока "тёмный лес" для меня...

Как правильно назначать обработчики событий для SynEdit-а, когда динамически создаются
несколько его экземпляров ?


Мой код примера:

Код:

// кнопка
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
   ts  : TTabSheet;
   sed : TSynEdit;
begin
	with PageControl1 do
		begin
		// создаём новый таб
		ts := TTabSheet.Create(Self);
		ts.PageControl := PageControl1;
		ts.Caption := 'TabSheet' + IntToStr(PageCount);

		// создаём новый экземпляр 'SynEdit'
		sed := TSynEdit.Create(ts);
		sed.Parent := ts;
		// присваиваем обработчик события
		sed.OnGutterClick := myGutterClick;

	end;
end;


// моя процедура для события 'OnGutterClick'
procedure TForm1.myGutterClick(Sender: TObject; Button: TMouseButton; X, Y, Line: Integer; Mark: TSynEditMark);
begin
  ...
  код
  ...
end;

[lmikle]

Ну, предаставленный код вполне правильный.
Просто внутри обработчика надо обращаться к тому компоненту, который вызвал этот обработчик, а не пытаться что-то вычислять, типа как-то так:

Код:

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;

[vas31]

Сообщение от lmikle

Просто внутри обработчика надо обращаться к тому компоненту, который вызвал этот обработчик

Да, действительно так работает как нужно. Большое спасибо!
Век живи, век учись

А существует ли возможность в обработчике одного компонента добраться до другого компонента ?
Просто при удалении созданных TabSheet-ов (с их SynEdit-ми) хотелось бы обновлять положение курсора при вставании на новый активный TabSheet, как удалится текущий (активный). Т.е. в обработчике PageControl.OnChange иметь доступ к экземпляру SynEdit табшита.

[lmikle]

Ну, тут 2 варианта.
1. Сохранять где-то соответсвие ссылок TabSheet-SynEdit.
2. Через FindComponent у TabSheet'а искать по имени, либо просто перебором через Components по классу.

[vas31]

Сообщение от lmikle

Ну, тут 2 варианта.
1. Сохранять где-то соответсвие ссылок TabSheet-SynEdit.
2. Через FindComponent у TabSheet'а искать по имени, либо просто перебором через Components по классу.

Ясно. Спасибо!. Буду пытаться "расти над собой"