Показать сообщение отдельно
  #5  
Старый 08.03.2015, 16:27
Аватар для Uniq!
Uniq! Uniq! вне форума
Местный
 
Регистрация: 29.09.2010
Сообщения: 539
Версия Delphi: Delphi XE3
Репутация: 374
По умолчанию

Не понимаю.
Эта процедура есть в самом классе. Просто мне некуда вытащить невизуальные компоненты, и дважды кликнуть в Event'ах на нужном.
В конечном Итоге я делаю нечто вроде такого?

Код:
type
  TMyscSSHClient= class(TscSSHClient)
... 
public
   procedure MyServerKeyValidate(Sender: TObject; NewKey: TscKey; Accept : boolean);
end;

procedure TMyscSSHClient.MyServerKeyValidate(Sender: TObject; NewKey: TscKey; Accept : boolean);
begin
   Accept := true;
end;
Ответить с цитированием