Поиск сообщества

Всем привет! Я новичок в FMX. Сталкиваюсь с проблемами различий с VCL. Некоторые проблемы: 1) Текст в edit мышью невозможно выделить, выделение скачет. Думаю связано с заточкой под тач, как починить и возможно ли - нигде не нашёл. 2) Покрасить грид (строчку) в зависимости от значения можно? В VCL это делается OnDrawColumnCell Спасибо!

Вообщем столкнулся с такой бедой и не знаю как решить! Мне нужно сделать в какой-то контейнер накидать лайауты, кнопки, имейджи, лейблы и тд. Потом нужно чтобы это всё можно было таскать по скролбоксу и создавать копию такого же контейнера! Казалось бы всё можно сделать но тут я в тупике, почему? Я кинуть TCalloutRectangle на форму в нём расположил как мне нужно элементы и научил его двигаться в скролбоксе!! Сижу я тут такой радуюсь смотрю на код) procedure TForm1.crtPhaseMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); begin zX := X; zY := Y; zIsDragging := true; (Sender as TControl).BringToFront; (Sender as TShape).Fill.Color := TAlphaColorRec.Lightblue; (Sender as TShape).Root.Captured := (Sender as TShape); end; procedure TForm1.crtPhaseMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single); begin if zIsDragging and (ssLeft in Shift) then begin (Sender as TControl).Position.X := (Sender as TControl).Position.X + X - zX; (Sender as TControl).Position.Y := (Sender as TControl).Position.Y + Y - zY; // (Sender as TShape).Fill end; end; Потом такой же радостный беру и копирую код из другого проекта где у меня прекрасно создавались копии накиданные мной . procedure TForm1.Button1Click(Sender: TObject); var Layout: TButton; begin Layout := TButton.Create(GridLayout1); Layout.Parent := GridLayout1; Layout.StyleLookup := 'MainStyle3'; Layout.Position.X := Layout1.Position.X + 10; Layout.Position.Y := Layout1.Position.Y + 10; Layout.Visible := true; GridLayout1.Height := GridLayout1.Height + Layout.Height; end; Сижу и думаю вот контрол сделал он по форме таскается круто шас ещё и научу его многожить))) Но тут горячая обезьянка подкидывает сурпрайз) У TCalloutRectangle и ему подобным нет свойства LoockupStyle. А это значит что стиль я ему предать не могу) Но он хорошо передвигается по форме) Ок делаю кнопку он вроде как стиль применяет, корява но это возмно мой касяк) Но он не передвигается по форме, а при клике по нему выдаёт ошибку First chance exception at $773ADAE8. Exception class EInvalidCast with message 'Invalid class typecast'. Process RPScenarioEditor.exe (4084) Чта делать я в замешательстве!!! Подскажите пожалуйста....

Как программно изменить положение курсора мыши?