Mexanik2012pro

Пользователи
  • Публикаций

    6
  • Зарегистрирован

  • Посещение

Информация о Mexanik2012pro

  • Звание
    Новичок

Контакты

  • Skype
    kawak-pro

Информация

  • Пол
    Не определился

Посетители профиля

318 просмотров профиля
  1. Mexanik2012pro

    Удаление <delete> компонентов

    Проблему решил сам. ClickedItem->DisposeOf(); //удаляет компонент ClickedItem = NULL;
  2. Mexanik2012pro

    Удаление <delete> компонентов

    Всем добрый день ))) Возникла такая проблема: > На форме расположено 4 TButton. И дан им один обработчик Click. Я хочу удалить одну из перечисленных TButton, передаю Sender кнопки, затем выводит Сообщение (что это наша кнопка), после нажимаем ОК (закрыть сообщение) и должно удалить кнопку. Но процесс удаления Кнопки не происходит. //На FMX Win32 данной проблемы нету ... void __fastcall TForm1::Click(TObject *Sender) { TButton *ClickedItem = dynamic_cast<TButton*>(Sender); ShowMessage(ClickedItem->Text); delete ClickedItem; ClickedItem = NULL; } //--------------------------------------------------------------------------- Пробовал на прямую удалить компонент: void __fastcall TForm1::Button1Click(TObject *Sender) { delete Button1; Button1= NULL; } //--------------------------------------------------------------------------- Но результат тот же. Не реагирует на <delete>. Пробовал через Button1->Free(); Результат тоже 0!!! Извиняюсь, если не корректно написал. Но все же, проверте и дайте ответ в чем же проблема. Если данная тема была, то дайте ссылку на ответ.
  3. Спасибо большое ))) Это извращение какое то ... Создал глобальную переменную int pos, для запоминания позиции последнего TLabel. Вот решение: //------------------------------------------------------------------------------------------------------------------------------- int pos = 0; //наша позиция последнего TLabel void __fastcall TForm1::Button1Click(TObject *Sender) { static int i = 1; TLabel *label = new TLabel(this); label->Parent = ScrollBox1; label->Text = "Text " + String(i++); label->Align = TAlignLayout::MostBottom; label->Align = TAlignLayout::MostTop; label->Position->Y = pos; //заносит нашу позицию pos = label->Position->Y + label->Height; //сохраняет позицию и размер Height, для след использования Label1->Text = pos; //выводит позицию последнего TLabel } //------------------------------------------------------------------------------------------------------------------------------- Результат на картинка
  4. Добрый день всем! Возникла проблема с компонентом TScrollBox на XE7. На форме лежит компоненты TScrollBox и TButton. И на ScrollBox(e) создаются динамические компоненты TLabel. В начале все создает прекрасно (Картинка 1), но потом, когда TLabel создается за пределами TScrollBox получается трэш (Картинка 2) ... //------------------------------------------------------------------------------------------------------------------------------- static int i = 1; TLabel *label = new TLabel(this); label->Parent = ScrollBox1; label->Text = "Text " + String(i++); label->Margins->Bottom = 5; label->Align = TAlignLayout::MostBottom; //Что бы компонент перенесло в низ label->Align = TAlignLayout::MostTop; //зачем в верх, до последнего компонента //------------------------------------------------------------------------------------------------------------------------------- Извиняюсь, если не корректно написал. Но все же, проверте и дайте ответ в чем же проблема. Если данная тема была, то дайте ссылку на ответ. Данная проблема не только в этом компоненте, но TVertScrollBox & TFramedVertScrollBox. Картинка 1 Картинка 2
  5. Это на С++ //Прячет Значек с панели задач void __fastcall TLevel_Power::FormCreate(TObject *Sender) { //ShowWindow (FindWindowA ("TFMAppClass", NULL), SW_HIDE); } с Делфи не сталкивался
  6. Подскажите пожалуйста, Установил XE5, при первом запуске Rad Studio 5, сразу такая шляпа .... проблема как в первом посте (зависание кнопок и форма черная)...! И за чего может быть??? RAD Studio 5 update 2 Windows 8.1 Нет. Без понятия ...