Создать событие OnConnected

[igrok111]

Моя прога соединяется по rdp с компьютером. В uses добавлено MSTSCLib_TLB(без этого не работает). Соединяется но нормально, но как описать событие - OnConnected - ти что б когда соеденило вывело сообщение, и наоборот если не соеденило то вывело другое сообщение.

var rdp:TmsRDPclient2;
begin
rdp:=TmsRDPclient2.Create(self);
rdp.Parent:=Form1;
rdp.Server:='127.0.0.1';
rdp.UserName:='User';
rdp.Align:=alClient;
rdp.AdvancedSettings2.Set_ClearTextPassword('password');
rdp.Connect;
rdp.OnConnected ........... //тут надо что-то написать

[Человек_Борща]

Как это что? Прототип события TNotifyEvent. И указать на созданный метод.

[igrok111]

Сообщение от Человек_Борща

Как это что? Прототип события TNotifyEvent. И указать на созданный метод.

как это сделать? можно пример какой-то?

[northener]

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

как это сделать?

В описании класса формы:

    procedure MsRdpClient2Connected(Sender: TObject);

В секции implementation:

procedure TForm1.MsRdpClient2Connected(Sender: TObject);
begin
  ...
end;

В вашем коде:

rdp.OnConnected:=MsRdpClient2Connected;

Но уж конечно эта строчка должна идти до строчки

rdp.Connect;

P.S. Уж если такие мучения с назначением событий, то надо просто установить эту библиотеку и работать с её компонентами стандартным способом через Инспектор Объектов.

[igrok111]

P.S. Уж если такие мучения с назначением событий, то надо просто установить эту библиотеку и работать с её компонентами стандартным способом через Инспектор Объектов.

спасибо. вот установить в обьекты было бы лучше всего. А как установить нужный компонент? Я так понял на вкладке ActivX должно появится, я уже устанавливал что-то что б нашло MSTSCLib_TLB, после этого появились компоненты, это те что надо?

[northener]

это те что надо?

Они из этой же библиотеки.

[igrok111]

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

Они из этой же библиотеки.

да он я не могу понять, он не появляется на вкладке, где-то отсюда добавить нужно?

UPD:
разобрался, спасибо. Он есть, просто он невидимый - если не верите вот скрин:

[northener]

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

разобрался, спасибо. Он есть, просто он невидимый - если не верите

Верю. Просто иконки компонент неправильные и их не видно. У меня в Д2007 иконки видно, но еле-еле.