Anasazi

Спасибо, большое. Разобрался на вашем примере с алгоритмом создания компонентов,

Доброго времени суток. Помогите пожалуйста разобраться с динамическим созданием компонентов. Хочу создать на vertscrollbox несколько rectangle, На каждом из rectangle создать хочу попробовать создать tbutton и tlabel. Пока смог только создать несколько TRectangle. Получился вот такой: procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin for i :=1 to 30 do with TRectangle.Create(VertScrollBox1) do Parent:=VertScrollBox1 end; procedure TForm1.FormResize(Sender: TObject); var i: integer; begin for i :=0 to Box1.ComponentCount-1 do begin if box1.Components is TRectangle then with TRectangle(box1.Components) do begin Align := TAlignLayout.Top; Margins.Left:=10; Margins.Top:=15; Margins.Right:=15; end; end; Подскажите пожалуйста как на каждом из созданных TRectangle создать Tbutton и Tlabel?

Можете скинуть куда-нибудь файл push.php с внесенными вами изменениями?

А если внутри скрипта есть проверка пароля? Добавь поля login и pass и будет нормально.

Вот примерно так PostData:= TStringList.Create; try // Создаём подключение IdHTTP1 := TIdHTTP.Create; // Указываем данные для отправки PostData.Clear; postdata.Add('text_push=' + Memo1.Text); postdata.Add('action=send_push'); // Отправляем запрос Result:=IdHTTP1.Post(DOMAIN + 'push.php', postdata); finally end; Потом можешь куда-нибудь отобразить результат. showmessage(result);

Не трогай TWebBrowser1. Делай все через пост-запросы. Пример нужен?

А как думаете, как лучше получить URL'ы? PHP пусть возвращает одной строкой и потом разбивать по разделителю?

Всем доброго времени суток. Возникла необходимость решить такую задачу: в таблице базы MySQL хранится список изображений и их URL. Необходимо получить этот список массивом. Затем загрузить изображения и поочередно с интервалом показать их в TImage. Понимаю, что получить список изображений правильнее при помощи PHP скрипта, но в каком виде скрип должен вернуть данные, чтобы в Delphi получить из них массив не знаю. Раньше для получения изображений использовал такую процедуру. Но вопрос, где хранить изображения перед демонстрацией их в TImage? Создавать несколько MemoryStream? procedure LoadWebImage(url: string; image: TBitmap); var idhttp : TNetHTTPClient; ms : TMemoryStream; begin IdHTTP := TNetHTTPClient.Create(nil); ms := TMemoryStream.Create; try idhttp.Get(url, ms); ms.Position := 0; image.LoadFromStream(ms); finally ms.Free; idhttp.Free; end; end;

У меня была такая хрень, правда делал все не по статье Zuby, а по статье Александра Бирюкова, она тут тоже где-то есть на форуме. Пуш отправлял через обычную строку браузера http://пример.ru/push.php?action=send-push&text=МЧС предупреждает: сильные ливни! Заметил такую хрень, что фантомные пуши отправлялись в момент синхронизации chrome. Или когда заходил в свою учетку chrome и на другом компе и chrome начинал подтягивать журнал пароли и прочее.

Нашел тему: Заменил OnClick на OnTap и все стало работать корректно.

Установил у всех TImage hittest := false, но теперь скролинг совсем не работает.

Доброго времени суток всем! Столкнулся с такой штукой: есть TVertScrollBox, на нем TGridPanelLayout, а у уже в ячейках TImage. Проблема в том что при скролинге срабатывает событие OnClick у компонентов TImage. Можно ли как то исключить срабатывание этого события при прокрутке?

И версию ОС

Я вроде бы только одну строку заменил в global.pas // Отправляем запрос Mainform.NetHTTPClient1.Post(DOMAIN + 'push.php', postdata);

Замени idHTTP на NetHTTPClient в коде изменения незначительные и будет все нормально.