-
Постов
65 -
Зарегистрирован
-
Посещение
Весь контент Просто Проги
-
не проблема не в этом, даже если не циклом, а по одному удалять ошибка вылетает я пробовал с таким условием(
-
Заполнил ImageList изображениями пробую очищать так for I := 0 to ImageList1.Count do begin Form1.ImageList1.Source.Delete(i); Form1.ImageList1.Destination.Delete(i); end; но он не очищается и выдает ошибку.
-
Спасибо буду изучать)
-
а если требуется делать это в потоке как тогда поступить ?) список то создается только картинка не появляется(
-
Привет всем,Суть такова вот эта процедура не работает что не правильно ? или LsImage не может так делать напрямую как делал Listbox ? делаю в цикле for I := 0 to Length(tovar)-1 do begin TListItemImage(Item.Objects.FindDrawable('Img')). Bitmap.LoadFromUrl(tovar.img); end; В товар находится адрес картинки всё как бы правильно, но не выгружает(
-
Возможно ли как то скруглить края trackbar что бы он не был квадратным пробовал через стили но не получается ,если есть возможно подскажите вот такие артефакты получаются
-
да тут одна кнопка вот так выглядит событие ) просто знакомлюсь с NetHTTPClient1 та как надоело на idhttp таскать библиотеки ssl ( procedure TForm1.Button3Click(Sender: TObject); var res,data:TStringList; s,ip_h,lg_h:string; begin data:=TStringList.Create; ip_h:= edit3.Text; lg_h:= edit4.Text; data.Add('email='+edit1.text); data.Add('pass='+edit2.text); NetHTTPClient1.HandleRedirects:=true; NetHTTPClient1.Post('https://login.vk.com/?act=login&_origin=https://m.vk.com&ip_h='+ip_h+'&lg_h='+lg_h+'&role=pda&utf8=1',data).ContentAsString; end;
-
Мистика походу )Решил я как то сдалать по быстрому авторизацию для вк и решил пробовать новый NetHTTPClient1 и вроде бы всё норм, но как только я делаю так NetHTTPClient1.Post('https://login.vk.com/?act=login&_origin=https://m.vk.com&ip_h='+ip_h+'&lg_h='+lg_h+'&role=pda&utf8=1',data).ContentAsString; то сразу получаю ошибку мол параметры заданы не верно, о каких параметрах идет речь всё же вроде правильно версия делфи 10 Seattle.
-
На многих сайтах наблюдал такую штуку наводишь открывается меню убрал скрылась пробовал использовать для этого expander по свойству он напоминает то что я хочу сдалеть, но если его прикрепить к панели он не открывается так как нужно,т.е он должен перекрывать форму.
-
ок буду изучать спасибо за пример)
-
вот тестовое демо может я не правильно потоки использую? demo.rar
-
ок сейчас накидаю демку проекта )
-
поток использую что бы форма не висела пока лист загружает значения их может быть как 10 так и 1000 как то так
-
перед началом потока т.е как должно быть я загружаю список заполняю лист после если пользователь нажал кнопку повторно лист очищается и заполняется новыми значениями .
-
делал наподобие, но av возникает по прежнему
-
можно ли внедрить этот pas в xe10 ? или нужно обновляться ?
-
Пришла беда от куда не ждали, поигравшись с listbox понял что для больших данных он как то лагает решил перейти на listview и о чудо быстродействие и всё такое, но вот когда я хочу очистить его с помощью ListView1.Items.Clear; то получаю данную ошибку,как то можно избежать данной проблемы или нужно переходить на более новую версию сейчас на 10 seatle работаю.
-
тебе нужно знать какой сейчас элемент выбран в listview тогда так можно попробовать. label.Text:=ListView1.Selected.Index.ToString(); покажет какой элемент сейчас выбран в listView
-
Может в стиле поставить auto reverse в true тогда будет возвращаться на исходную.
-
Сделал на чистом примере так, но нечего не происходит замкнутый круг походу unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,Winapi.Messages,FMX.Platform.Win,Winapi.Windows; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public procedure WindowProc(var AMsg: TMessage); { Public declarations } end; var Form1: TForm1; FWnd:HWND; implementation {$R *.fmx} { TForm1 } procedure TForm1.FormCreate(Sender: TObject); begin //FWnd := WindowHandleToPlatform(Self.Handle).Wnd; FWnd := AllocateHWnd(WindowProc); RegisterHotKey(FWnd, Ord('U'), 0, Ord('U')); end; procedure TForm1.WindowProc(var AMsg: TMessage); begin case AMsg.Msg of WM_HOTKEY: case TWMHotKey(AMsg).hotkey of 1: ShowMessage('Событие первого hotkey'); 2: ShowMessage('Событие первого hotkey'); end; end; end; end.
-
Это тоже пробовал результата 0 компилится но события так и нет( Всё спасибо всем всё заработало)) Походу рано радовался на одно событие работает, а второе нет как можно проверить что именно данный hot key был нажат if Assigned(frm) and (uMsg = WM_HOTKEY) then begin ShowMessage('событие след трек'); end; задаю hot следующим методом RegisterHotKey(WindowHandleToPlatform(Self.Handle).Wnd, Ord('U'), 0, Ord('U')); //регистрац. гор. клавиши U
-
кстате забавная ситуация RegisterHotKey(FWnd, Ord('U'), 0, Ord('U')); сейчас попробовал написать в браузере букву u но не получается значит клавиши назначилась осталось как то её передать форме возможно метод Form.Dispatch поможет можно поподробнее как этот метод использовать первый раз про такой метод слышу.(