25.01.2009, 21:50
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
С нами:
9436571
Репутация:
110
|
|
Сообщение от noveek
А подскажите ко мне как пакеты отправлять чтобы не по одному а при нажатии на кнопку он отправлял а пока не выйдешь из программы а то так получается что надо всё время на кнопку жать и ещё как после одного нажатия сделать кнопку больше неактивной
procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPClient1.Send('qwertyqwertyqwertyqwertyqwertq' ); //отправляем пакеты
end;
end.
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.enabled:=false;
//или (sender as TButton).enabled:=false; если событие не только на этой кнопке
//а если много пакетов надо, просто ставить цикл
repeat
IdUDPClient1.Send('qwertyqwertyqwertyqwertyqwertq'); //отправляем
пакеты
application.processmessages; // даем сообщениям доти до формы
until true; // бесконечно
end;
|
|
|