Razmir

А можно подробнее? в принципе мне не важно куда пинговать, главное чтобы пинг проверить..

На каком компе?

Спасибо. Еще бы это на делфи как то перевести ((

Предоставил все разрешения, которые только можно, все равно ошибка сокета ((

Доброго всем. Подскажите пожалуйста. Мне по работе надо зачастую проверять ping, ноутбук не всегда удобно использовать, поэтому решил сделать приложение для телефона. Использовал следующий код: procedure TForm1.Button1Click(Sender: TObject); begin IdIcmpClient1.Host:='173.194.73.138'; IdIcmpClient1.Ping; end; procedure TForm1.IdIcmpClient1Reply(ASender: TComponent; const AReplyStatus: TReplyStatus); begin ListBox1.Items.Add (' Ответ '+IntToStr (AReplyStatus.MsRoundTripTime) +' TTL='+IntToStr (AReplyStatus.TimeToLive) ); end; В windows работает как надо, под андроидом выдает ошибку - Socket Error # 1. Как с этим бороться, что делать? Заранее благодарю.

Прошу прощения, что поднимаю некротему, но уже устал биться с такой проблемой - В Listbox выводится от 2х до 4х итемов с текстом разной длины, попытался применить этот код, нашел еще другие варианты, уже дошел до того, что тупо создаю label, присваиваю ему текст и autosize в true, высоту label присваиваю итему. Но проблема в том, что любой из кодов нормально работает, если listbox видим на главной форме. Ежели размещаю на другой форме, или на tabcontrol на не основном табе, то почему то код начинает работать только со второго раза. В первый вообще непонятно какие размеры ставятся. Почему так?

Спасибо, но ровно то же самое, появляется только после 2х кликов

Всем доброго, вопрос такой.RAD Studio 11.2 Нашел как создать свой тип ячейки таким образом: type TSpinBoxCell = class(TSpinBox) private ............................... protected constructor Create(AOwner: TComponent); override; end; ............................... constructor TSpinBoxCell.Create(AOwner: TComponent); begin inherited; ............................... end; procedure TForm1.StringGrid1CreateCustomEditor(Sender: TObject; const Column: TColumn; var Control: TStyledControl); var XSpin: TSpinbox; begin if Column.Index=5 then begin XSpin:= TSpinBoxCell.Create(nil); XSpin.TagObject := Column; XSpin.text:='1'; Control := XSpin; end; end; Проблема в том, что spinbox не отображается пока не кликнешь по ячейке 2 раза, ну и после перехода на другую ячеку он опять исчезает и соответственно не видно результата. Что надо сделать, чтобы это исправить? Заранее благодарю.

Сравнил с вашим вариантом, я не использовал beginupdate, потому как у меня загружается items при onshow и тогда форма как бы подвисает, что не желательно, попробовал с кнопки создавать действительно, практически моментально все создается. Буду думать как организовать загрузку иначе. Спасибо. Уже не впервые выручаете. Отдельное спасибо за подсказку на счет фреймов.

Офигенная вещь фреймы и почему я раньше не знал о них, но тем не менее у меня с ними так:

хм, не подумал об этом

Этот вариант как раз таки без стилизации, динамическое создание компонентов, со стилизацией еще медленнее

Сейчас пробую TFrame, интересная штука, как то раньше не использовал, возможно то, что надо

То есть можно сделать стиль с кнопками и текстом не у итема, а у rectangle, который будет кидаться на пустой итем и у него менять цвет без всяких стилей? точно, надо попробовать.

Так это выглядит визуально, компонентов штук 20