ПредишенСледващото

На няколко ListBox-е т-ите, те определят Edit-ите. Когато се опитам да редактирате долната Edit-те, клавиатурата ги покрива и не може да се види, че сте написали (в моя пример е House). Как да го оправя?

Падащ списък, редактирате и клавиатура - tlistbox - пожар маймуна от А до Я
Падащ списък, редактирате и клавиатура - tlistbox - пожар маймуна от А до Я

И как да се направи така, че клавиатурата, вместо бутона Enter има бутона Finish, чрез натискане на която ще бъдат скрити Клаудия?

Споделяне

Падащ списък, редактирате и клавиатура - tlistbox - пожар маймуна от А до Я

Направих от тип "ScrollableForm". Когато отворите клавиатурата е изместен форма, всичко работи както трябва, но ако след въвеждането на кликване върху бутона "Save" се случва в близост клавиатурата и бутоните за смяна "Save" и, съответно, спестяване не се случва и това отнема повече време, за да натиснете бутона.
Възможно е да се получи около него, като например да се направи за удължаването на работното клавиатурата?

Падащ списък, редактирате и клавиатура - tlistbox - пожар маймуна от А до Я

Здравейте на всички. Уча се да работя с INI-файлове на Android. И веднага, че има проблем, че не може да реши. Исках да напиша молбата за сходство с тест за съхранение на данни в INI файл. В резултат на всичко работи добре на прозорци, но при стартиране на Android firemonkey виси само на 10 секунди, а иконата на приложението, отсича се и не се стартира. Какво може да е проблема? Аз съм с отстраняване на грешки през USB.
TIniFile * Ини = нов TIniFile (System :: Ioutils :: TPath :: GetDocumentsPath () + PathDelim + "options.ini"); Yuzayu тези библиотеки
#include #include

Падащ списък, редактирате и клавиатура - tlistbox - пожар маймуна от А до Я

Здравейте
Аз пиша за Delphi 7. Всичко беше наред, докато не се появи на терминал за събиране на данни Androide. 10 в Делфи, за да напишете просто приложение. Но е имало проблем с въвеждане на данни в полето за въвеждане с баркод скенер. В интернет открих, че случаят е решен просто намерение. Като цяло през прозорците Харесва ми да правя: процес, който следи за ком-порт обесване, и на външния вид на данните, които ги изпраща на правилното място. В Android не трябва да бъде трудно. Но аз съм объркан в цялата тази купчина от възможности и функции, предават и приемат "намерения".
Като цяло, това е това, което имаме в момента.
настройки на скенера е писано:

Падащ списък, редактирате и клавиатура - tlistbox - пожар маймуна от А до Я

Добър ден!
Решете следния проблем, приложението генерира динамично различни предмети, наследниците от същия клас. Когато, предмет запълва динамичен набор от елементи. На следващо място, искам да отида на отделна нишка за всеки елемент на масива, за да си състояние, тоест, да отправи искане към сървъра. Всичко това се висеше на таймер всяка секунда трябва да обработи заявката. Всички повече или по-малко работи на Windows, както и на приложението Android евентуално падане. Ето кода на таймера, за четимост аз се отстраняват на парчета с различни варианти на Е. RootElements - масив от TEssense който има наследници. Функции GetBoardCurrentValue, GetBoardMaxValue - по същество на заявки до сървъра.
Prompt, дали мога да различа с работния процес да работи върху Android?
процедура TForm1.MasterTimerTimer (Sender: TObject); започне TTask.Run (процедура Var L, D, А: байт I, J: число Е: TEssence р: Стрелката; VirtualNode: IXMLNode; VirtualElementNode: IXMLNode; номер: байт; започне л: = дължина (Form1.RoomElements ) за к: = 0 до л - 1 да започне е: = Form1.RoomElements [й]; // превключвател ако е е TRele след това започва г: = (е като TRele) .Device_ID; а: = (е като TRele ) .Device_Adress; ако Form1.GetBoardCurrentValue (г, а) = вярно, тогава започва TThread.Synchronize (нула, процедура започне (Е като TRele) .ReleSwitch.IsChecked: = Form1.device [д] .Board [а] .CurrentValue. ToBoolean; край); край; // (е като TRele) .ReleOnTimer (е) край // димер друго, ако е е след TDimmer започне г: = (е като TDimmer) .Device_ID; а: = (е като TDimmer). Device_Adress; ако Form1.GetBoardMaxValue (г, а) = вярно, тогава започва TThread.Synchronize (нула, процедура започва, ако (Form1.device [д] .Board [а] = .Type_ID TType.Svetodiod) или (Form1.device [г ] .Board [а] = .Type_ID TType.Dimmer220) след това да започне (Е като TDimmer) .DimmerValue.Text: = (Form1.device [д] .Board [а] .MaxValue) .ToString; край; ен г); край; // (Е като TDimmer) .DimmerOnTimer (Е) край // таймер друго, ако Е е TSTimer след това започва ID: = (Е като TSTimer) .STimerIndex; Form1.FillHTTPRequest (0, 0, HTTP_GET_TIMER_INFO, ID); ако Form1.AnswerIsComming = HTTP_GET_TIMER_INFO след това да започне TThread.Synchronize (нула, процедура да започне, ако Form1.HTTPAnswer.Data1 = 0 тогава (Е като TSTimer) .Interval.Text: = "изключено" друг (Е като TSTimer) .Interval.Text: = 'ON' края); приключи; // (Е като TSTimer) .STimerOnTimer (Е); приключи; приключи; край); приключи;

Падащ списък, редактирате и клавиатура - tlistbox - пожар маймуна от А до Я

Добър ден. Има Приложение за Android, тя има диалогов прозорец, който предлага отидете в Google Play и изтегляне на друго приложение (про версия), с 2 бутона (да / не). Как да се приложи този преход в пиесата на Google, че тя изисква да се прилага, е била свалена веднага. Използвам Delphi XE7

Падащ списък, редактирате и клавиатура - tlistbox - пожар маймуна от А до Я

Падащ списък, редактирате и клавиатура - tlistbox - пожар маймуна от А до Я

Добър ден. Кой знае, бърза, независимо дали firemonkey означава, че можете да промените иконата на приложението в изпълнение или след затваряне и повторно отваряне на заявлението? На победа тя изглежда да е възможно Според статията във форума, но не намери за Android.

Наскоро Кампильо приложение на Delphi FMX Android, когато имат достъп до сървъра HTTPS, когато искането за да получите от TIdHttp заявките компоненти библиотека "Не може да се зареди SSL библиотека", използван sslvTLSv1_2 протокол в прозорците на всички каси на Android не е така. Аз съм изкопал, че можете да се свържете на библиотеката и libssl.so libcrypto.so чрез .assets разполагане \ вътрешно. И ето как кода на тяхната употреба една primerchik не изложи, макар и обсъден в интернет 100 пъти, като и двете прикован към IdSSLIOHandlerSocketOpenSSL1.SSLOptions.CertFile. Ако има един код изложи моля? skinte или по електронна поща [email protected]
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method.sslvTLSv1_2;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode.sslmUnassigned;

Падащ списък, редактирате и клавиатура - tlistbox - пожар маймуна от А до Я

Добър ден, приятели. Кажи ми, възможно ли е да се отвори firemonkey формата, както е показано на снимката по-долу? Ако е така, кажи ми кой път да копаят. Благодаря.

Падащ списък, редактирате и клавиатура - tlistbox - пожар маймуна от А до Я

Създайте свой визуализация компонент в Label Edit, вижте. Фиг.
още един етикет се появява по време на компилация. И не можете да копирате готов kompnonent при изготвянето форми - грешка.
Питай как да се отървете от дубликата.
т
въведете TShowLabel = (Show, Hide); TEditVisualLabel = клас (TEdit) лично TextLabel. TLabel; FloatVErt. TFloatAnimation; FloatSize. TFloatAnimation; FloatColor. TColorAnimation; FLabCAp. низ; функция GetSHow: TShowLabel; Процедура SetShow (Стойност TShowLabel.); функция GetLabelCaption: низ; Процедура SetLabelCaption (Стойност низ.); функция GetLabelFontColor: TAlphaColor; Процедура SetLabelFontColor (Стойност TAlphaColor.); функционира GetStopValue. Единична; процедура SetStopValue (Стойност Единична.); функционира GetStartValue: Единична; процедура SetStartValue (Стойност Единична.); функционира GetStopFont: Единична; процедура SetStopFont (Стойност Единична.); функционира GetStartFont: Единична; процедура SetStartFont (Стойност Единична.); защитена процедура Enter (Sender TObject.); процедура EXI (подателя TObject.); обществен публикувано имот LabelFontColor. TAlphaColor прочетете GetLabelFontColor запис SetLabelFontColor; имот LabelCaption: низ прочетете GetLabelCaption запис SetLabelCaption; имот LabelPositionStop. Единична четене GetStopValue напиши SetStopValue; имот LabelPositionStart. Единична четене GetStartValue напиши SetStartValue; имот LabelSizeStopFont. Единична четене GetStopFont напиши SetStopFont; имот LabelSizeStartFont: Single прочетете GetStartFont напиши SetStartFont; имот LabelVisible. TShowLabel прочетете GetSHow запис SetSHow подразбиране TShowLabel (1); конструктор Създаване (aowner: TComponent); отменят; приключи; процедура регистър; Процедура за изпълнение Регистрирайте; започне RegisterComponents ( "Пробите", [TEditVisualLabel]); приключи; конструктор TEditVisualLabel.Create (aowner: TComponent); Var Del: TLabel; Семейство, Стил, FONTCOLOR. TStyledSetting; започнем наследени Създаване (AOwner); TextLabel: = TLabel.create (самостоятелно); TextLabel.Parent: = самостоятелно; // Най-вероятно тя е тук, че цялото включване защо се извършва два пъти TextLabel.StyledSettings: = [Семеен]; TextLabel.Align: = TAlignLayout (2); TextLabel.TextSettings.FontColor: = TAlphaColorRec.Silver; TextLabel.TextSettings.Font.Size: = 14; TextLabel.SetSubComponent (истина); FloatVErt: = TFloatAnimation.Create (TextLabel); FloatVErt.Parent: = TextLabel; FloatVErt.PropertyName: = 'Position.Y; FloatVErt.StopValue: = -20; FloatVErt.StartValue: = 0; FloatSize: = TFloatAnimation.Create (TextLabel); FloatSize.Parent: = TextLabel; FloatSize.PropertyName: = 'TextSettings.Font.Size; FloatSize.StopValue: = 11; FloatSize.StartValue: = 14; FloatColor: = TColorAnimation.Create (TextLabel); FloatColor.Parent: = TextLabel; FloatColor.PropertyName: = 'TextSettings.FontColor; FloatColor.StartValue: = TAlphaColorRec.Silver; LabelFontColor: = TAlphaColorRec.Black; LabelVisible: = TShowLabel (0); TextLabel.Align: = TAlignLayout (2); //TextLabel.Width: = 5000; //FloatColor.StopValue: = LabelFontColor; OnExit: = EXI; OnEnter: = Въведете; приключи; процедура TEditVisualLabel.Enter (подателя TObject.); започнем наследи; ако TextLabel.Position.Y<>След това FloatVErt.StopValue започне FloatVErt.Inverse: = неверни; FloatVErt.Start; FloatSize.Inverse: = фалшива; FloatSize.Start; FloatColor.Inverse: = фалшива; FloatColor.Start край; приключи; процедура TEditVisualLabel.Exi (Sender: TObject); започнем наследи; ако (Self.Text = '') и (TextLabel.Position.Y<>0) след това започва FloatVErt.Inverse: = вярно; FloatVErt.Start; FloatSize.Inverse: = вярно; FloatSize.Start; FloatColor.Inverse: = вярно; FloatColor.Start край; приключи; функция TEditVisualLabel.GetLabelCaption: низ; започне резултат: = TextLabel.Text; приключи; функция TEditVisualLabel.GetLabelFontColor: TAlphaColor; започнем Резултат: = FloatColor.StopValue; приключи; функция TEditVisualLabel.GetSHow: TShowLabel; започне ако след TextLabel.Visible Резултат: = TShowLabel (0) друго Резултати: = TShowLabel (1); приключи; функционира TEditVisualLabel.GetStartFont: Единична; започнем Резултат: = FloatSize.StartValue; приключи; функционира TEditVisualLabel.GetStartValue: Единична; започнем Резултат: = FloatVErt.StartValue; приключи; функционира TEditVisualLabel.GetStopFont: Единична; започнем Резултат: = FloatSize.StopValue; приключи; функционира TEditVisualLabel.GetStopValue: Единична; започнем Резултат: = FloatVErt.StopValue; приключи; процедура TEditVisualLabel.SetLabelCaption (Стойност: низ); започне TextLabel.Text: = стойност; приключи; процедура TEditVisualLabel.SetLabelFontColor (стойност: TAlphaColor); започне FloatColor.StopValue: = стойност; приключи; процедура TEditVisualLabel.SetShow (стойност: TShowLabel); започнем ако Value = TShowLabel (0) след TextLabel.Visible: = вярно друго TextLabel.Visible: = False; приключи; процедура TEditVisualLabel.SetStartFont (стойност: Single); започне FloatSize.StartValue: = стойност; TextLabel.TextSettings.Font.Size: = стойност; приключи; процедура TEditVisualLabel.SetStartValue (стойност: Single); започне FloatVert.StartValue: = стойност; приключи; процедура TEditVisualLabel.SetStopFont (стойност: Single); започне FloatSize.StopValue: = стойност; приключи; процедура TEditVisualLabel.SetStopValue (стойност: Single); започне FloatVert.StopValue: = стойност; приключи; край.

Сега потребителите на страница 0

Не са хора, които търсят в тази страница

Подкрепете проекта - споделете линка, благодаря!