Блин а почему эта процедура непашет:
Код:
procedure OnDisconnect(WithServer:boolean);
begin
label79.Font.Color:=clRed;
label79.caption:='Off';
timer2.enabled:=false;
if WithServer then
begin
label80.Font.Color:=clRed;
label80.caption:='Off';
end;
end;
Добавлено через 8 часов 48 минут
Нужно чтобы вместо Лога выводило:
Тунель ($124217792) уничтожен.
в лабелку.
__________________
---------------------------__--------__-----
---____- ___--____--- ___/'- /__ ___-(__)-____
--/-___-/-__-\/-__--\ /-__--'/--|-/--//---//--__--\
-/-/_/ -/-/_/--/-/_/--/-/_/--/|--|/--'//---//--/-/--/
-\___-/\____/\____/\____/-|____//__'//_'/-/__/
/_-__/
Последний раз редактировалось goodvin1709, 18.09.2011 в 23:26.
Причина: Добавлено сообщение
|