skaplich

сделал, все работает frmSplash.LabelMessage1.Text := 'Создание базы данных'; frmSplash.LabelMessage2.Text := 'Создание таблиц'; frmSplash.LabelMessage1.Repaint; frmSplash.LabelMessage2.Repaint; Application.ProcessMessages; при изменении текста на форме и все отображается теперь всем спасибо, надо учитывать особенности FRX и понимать, как он работает. тема закрыта

Пример глянул, суть понятна ,я так уже делал - именно в создании главной формы - это лучше всего. Но все хотел вернуться и работать как в VCL. На ошибках учаться. Всех благодарю, далее сам буду копать.

Application.ProcessMessages; после тоже не помогает, пробовал Кривяков Виталий спасибо, посмотрю, многое пояснили, а тоя все думал, чего начинаю обращаться к типа созданным формам, а у меня ошибки валятся FMX особая штука, на которую смотреть надо по-другому и хоть и книжку читал, не помогло!

frmSplash.Transparency=True

frmSplash.ShowModal попробовал - отображает форму тоже, вот такие приколы

Всем привет. в VCL таких проблем не имел. Delphi XE8 файл проекта Application.Initialize; frmSplash := TfrmSplash.Create(Application); frmSplash.LabelMessage1.Text:='Загрузка программы'; frmSplash.LabelMessage2.Text:=''; frmSplash.Show; if frmSplash.Visible then begin //MessageDlg('видимая', System.UITypes.TMsgDlgType.mtInformation, [system.UITypes.TMsgDlgBtn.mbOk], 0); end; Sleep(1000); Application.CreateForm(TfrmDM, frmDM); Application.CreateForm(TfrmMain, frmMain); frmSplash.Hide; Application.Run; форма frmSplash невидима при закрузке, если комментарий стять со строки MessageDlg, то становиться видимой вот такие чудеса далее при создании главной формы будет код, если меняю текст в splash форме, то ничего не происходит procedure TfrmMain.FormCreate(Sender: TObject); if not FileExists(GetCurrentDir + '\base.db') then begin Application.ProcessMessages; frmSplash.LabelMessage1.Text := 'Создание базы данных'; frmSplash.LabelMessage2.Text := 'Создание таблиц'; // на экране ничего не меняет Sleep(3000); // чтобы увидеть end; Не меняет текст Application.ProcessMessages; frmSplash.LabelMessage2.Repaint; не помогает Если начинаю работать Application.CreateForm(TfrmDM, frmDM); Application.CreateForm(TfrmMain, frmMain);Application.CreateForm(TfrmDM, frmDM); frmDm.FDConnection1.Params.Add('Database=' + GetCurrentDir + '\base.db'); frmDm.FDConnection1.Params.Add('DriverID=SQLite'); // тип БД в файле проекта - валиться вообще AppCrash а в TfrmMain.FormCreate - работает код Нужна реально работающая Splash форма с возможностью изменения текста Label и чтобы это отображалось на экране. Splash форма не убивается, а Hide, в дальнейшем можно использовать ее отображение ,когда программа работает какое-то время Жду ответов.

придется xe8 поставить и там писать...

Click - событие работает, а DblClick не работает в обработчик прописываю, чтобы видеть текущие координаты Label1.Text:='x='+IntToStr(Grid.ColumnIndex)+' y='+IntToStr(Grid.Selected); XE5 Grid.HitTest=True В Осипове очень мало по FMX, в справке не хватает примеров использования. Где есть более подробная документация?

Спасибо большое за подсказку, реально, только видимые! Если высоту строки поменять, чтобы все было видно, то тогда все в ажуре.

Даже если GridLand.RowCount:=20 к примеру делаем сразу, а не по строке, все равно ChildrenCount выше 9 для столбца не поднимается

XE5

Привет всем! Имеется TGrid. У него 10 колонок TimageColumn. По нажатию на кнопку добавляю строки GridLand.RowCount:=GridLand.RowCount+1; GridLand.Selected:=GridLand.RowCount; // выбираю последнюю добавленную строку // смотрю сколько строк в гриде, а сколько реально есть в столбце Label1.Text:='Col='+IntToStr(GridLand.ColumnCount)+' row ChildrenCount='+IntToStr(GridLand.Columns[3].ChildrenCount)+' row Grid='+IntToStr(GridLand.RowCount); Прикол в том, что на цифре 9 GridLand.Columns[3].ChildrenCount (номер столбца от 0-до 9 значения не имеет), GridLand.Columns[3].ControlsCount - то же самое останавливается, а строки добавляются дальше. То есть строки GridLand.RowCount увеличиваются, а GridLand.Columns[3].ChildrenCount больше 9 не бывает! И доступа к элементам выше 9 нет GridLand.Columns[2].Children , где i>=10 и i<=GridLand.RowCount дает ошибку Argument out of range Жду предложений как исправить данный глюк!