antarey

Как задать ширину едита по длине текста?

В лейбела есть свойство AutoSize там все просто , а как в едита???

AlexG , немного да, уже разобрался.

Ето вводный вопрос к моей основной задачей - хочу реализовать адресную строку как в проводнике вин 7

Через TListBoxGroupHeader в динамике отлично получилось

Огромное спасибо

Есть TEdit   в нем записан какой-то путь

При клике по имени каталога в любом месте пути необходимо получить имя самого каталога и левую часть пути.

По аналогии , как в адресной строке проводника вынь 7 и выше - кликнул по имени каталога - получил список подкаталогов.

Дабы не изобретать велик - может есть стандартная функция получения подстроки заключенную в разделители?

Если нет - то как получить позицию каретки в TEdit?

Как зафиксировать первый итем в ListBox? - необходимо чтобы при прокрутке первый итем оставался на месте а все нижние прокручивались

AlexG, пасибо, буду пробовать. И как вариант - разъяснение Ярослава в 7 посте

Вот в етом то и вопрос. Я в своем первом посте привел код - но он не работает - мне надо определить абсолютные положения кнопки - а тут загвоздка

Brovin Yaroslav, об этом свойстве я уже знаю , проблема не в создании а в показе. Кнопка лежит на тулбаре - и мне надо показать окно под кнопкой. И , в не зависимости от положения главного окна попап всегда должно появляться ниже кнопки - на подобии TMS TAdvSmoothPopup

Хочу реализовать что-то типа PopUp окна.

Есть главная форма и на ней SpeedButton.

Вторичная форма прозрачна и на нее положил CalloutPanel

Как сделать чтобы при клике на  SpeedButton вторичная форма появлялась под  SpeedButton 

frmFilter->Top=SpeedButton24->AbsoluteRect.Top;
frmFilter->Left=SpeedButton24->AbsoluteRect.Left;
frmFilter->Show();

Как прочитать имя контакта владельца в адресной книге Андроида - Контакты-Я?

Что-то я притупил.

Может кому пригодится

LinkControlToField1->Active=false;
switch (frmMain->TabControl2->TabIndex)
{
case 1: 
LinkControlToField1->DataSource=dm->ds_sprCklad;
LinkControlToField1->FieldName="CkladName";
break;
case 4:  
LinkControlToField1->DataSource=dm->ds_tGGRup;
LinkControlToField1->FieldName="GrypaName";
break;
}
LinkControlToField1->Active=true;

Я пол дня лопатил справку гугля - Settings.Secure отвечает за настройки безопасности, но до имени владельца так и не добрался. Возможно оно от балды и никакой нагрузки не несет, мне надо имя пользователя, которое можно менять как в винде

Я привязал свойство Text для TEdit через Live Binding к полю одной таблицы.

Теперь мне надо в рантайме поменять ету связь - привязать к другому полю другой таблицы

Как сие реализовать?

Я в посте написал -идешь в настройки телефона -безопасность -сведения о владельце

Спасибо

Согласно справки на андроиде надо вызывать ShowModal для формы с передачей процедуры.

На основании Using FireMonkey Modal Dialog Boxes написал код

//---------------------------------------------------------------------------
class TEditTableCallback : public TCppInterfacedObject<TProc__1<TModalResult> >
{
public:
int TableIndex;
  void __fastcall Invoke(TModalResult ModalResult) {
if (ModalResult==1)
{
  switch (TableIndex)
  {
  case 0: dm->tKaca->Post();dm->tKaca->Refresh();break;
  }
}
else
{
  switch (TableIndex)
  {
  case 0: dm->tKaca->Cancel();break;
  }
}


  }
};
//---------------------------------------------------------------------------

void __fastcall TfrmMain::SpeedButton4Click(TObject *Sender)
{
TSpeedButton *button=dynamic_cast<TSpeedButton*>(Sender);
TEditTableCallback* EditTableCallback = new TEditTableCallback();
EditTableCallback->TableIndex=TabControl2->TabIndex;


switch (TabControl2->TabIndex)
{
case 0: 
TfrmNewKaca *frmNewKaca = new TfrmNewKaca(Application);
if (button->Tag==0){dm->tKaca->Append();frmNewKaca->ShowModal(EditTableCallback);}
if (button->Tag==1){dm->tKaca->Edit();frmNewKaca->ShowModal(EditTableCallback);}
break;
}


}
//---------------------------------------------------------------------------

frmNewKaca->ShowModal();

frmNewKaca->ShowModal(EditTableCallback);

Brovin Yaroslav, спасибо помогло за одним нюансом - для того комбобокса из которого я выбираю размер шрифта если DropDownKind = Native  меняется только шрифт выбранного итема, если TDropDownKind.Custom то ничего не меняется, но ето уже мелочи.

TJBuild.JavaClass.USER на рутированом устройстве выдает имя админа а мне надо добраться до имени владельца - Настройки-Безопасность-Сведения о владельце

Ага.Как задисаблить всю форму не нашел - кинул на нее Layout , все контролы на него и Layout->Enable=false; 

К сожалению не помогло

Да мне ввод не надо , я хочу реализовать прогресс диалог.Но нюанс есть еще один - клик не по попап форме закрывает ее - еще не пробовал , но думаю надо дизаблить всю главную форму

В смысле?

Ну ето другое дело - спасибо

Если точнее, в ComdoBox  меняется шрифт выделенного итема, но не меняется шрифт списка итемов. В Мемо вообще шрифт не меняется

Нет. Я пока вообще хочу не затрагивать стили.

Программно делаю так

//---------------------------------------------------------------------------
class TSetTextSettings : public TCppInterfacedObject<TFunc__2<TControl*,TEnumControlsResult> >
{
public:


TEnumControlsResult __fastcall Invoke(TControl* Control)
{
_di_ITextSettings Settings;
if(Control->GetInterface(Settings))
{
Settings->TextSettings->Font->Size = StrToInt(Form2->ComboBoxFontSize->ListItems[Form2->ComboBoxFontSize->ItemIndex]->Text);
Settings->StyledSettings=Settings->StyledSettings>>TStyledSetting::ssSize;
}
return TEnumControlsResult::Continue;


}
};
//---------------------------------------------------------------------------


void __fastcall TForm2::Button1Click(TObject *Sender)
{
TControl* Control;
for(int i = 0; i < ComponentCount; i++)
{
 Control=dynamic_cast<TControl*>(Components[i]);
 if (Control!=NULL)Control->EnumControls(new TSetTextSettings);
}
}
//---------------------------------------------------------------------------