Выполнить действия после отображения формы

[zhefran]

Можно поподробнее?

[Stilet]

хм...
Ну вот так чтоли:
Клиент:

procedure TForm1.FormCreate(Sender: TObject);
begin
 IdUDPClient1.Port:=90;
IdUDPClient1.Host:='localhost';
IdUDPClient1.Send('Я запустился '+IdUDPClient1.LocalName);
end;

Сервер настроен так:

IdUDPServer1.DefaultPort:=90;
 IdUDPServer1.Active:=true;
............
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var m:TStringStream;
begin
m:=TStringStream.Create('');
m.CopyFrom(AData,AData.Size);
caption:=m.DataString;
end;

Уловил идею?

А кста, вместо localhost укажеш адрес компа на котором будет сервер UDP

[zhefran]

Это все понятно! Ты предлагаешь использовать не TCP, а UDP - это конечно тоже вариант, но это не подходит из-за того, что при запуске на сервере программы и поднятием TCPServer-а я отправляю время запуска программы + те события, что произошли до загрузки серверного приложения.

[Stilet]

те события, что произошли до загрузки серверного приложения.

А-а-а вон че накрутил )))
Если не секрет зачем? Не проще ли записывать события в Лог, а при запуске сервер пусть его читает.

Впрочем, пусть клиент слушает эфир. Когда сервак запускается пусть всем рассылает "Я в эфире", при получении такого сообщения пусть клиент отправляет серваку что нужно.

Но имхо, лучче логами )

[Квэнди]

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

Мне после запуска программы надо отправлять по сети статус сообщения, что она запустилась. если энтое дело написать в OnShow или в OnCreate и не будет подключения, то окно программы не появиться пока не обработается исключение. OnActivate также происходит до отображения формы.

Ерунду пишете.
Оповещение о статусе отправляйте сразу после подключения, не вижу проблемы.

[zhefran]

Stilet, ты был прав насчет FormActivate. Я плуганул из-за того что использовал OnActivate не формы, а ApplicationEvents.