Dynamiczne tworzenie komponentów na dynamicznie utworzonym..

[marekgajewski]

Witam!
Chciałem się dowiedzieć, czy jest możliwe dynamiczne tworzenie komponentów na dynamicznie utworzonym formularzu?

[Cyfrowy Baron]

Jest możliwe. Uprzedzając ewentualne pytanie - nic się nie zmienia w kwestii dynamicznego tworzenia komponentów dla dynamicznego formularza, ale trzeba zawsze mieć na uwadze, że dynamiczny obiekt można umieścić na dynamicznym formularzy dopiero gdy ten zostanie utworzony.

[marekgajewski]

A czy mógłbym prosić o jakiś kawałek kodu, który zobrazowałby mi jak tego dokonać?

[Cyfrowy Baron]

Teraz to już Ciebie nie rozumiem. Chcesz tworzyć obiekty dynamicznie, a nie wiesz jak to robić?!

Kod: Zaznacz cały


TForm2 *MyForm = new TForm2(NULL);
MyForm->Name = "MyForm"; // dla bezpieczeństwa
MyButton->Show();

TButton *MyButton = new TButton(MyForm);
MyButton->Name = "MyButton"; // dla bezpieczeństwa
MyButton->Parent = MyForm;
MyButton->Visible = true;
MyButtton->Left = 8;
MyButton->Top = 8;

/* należy zachować kolejność usuwania obiektów, albo usuwasz formularz i nie martwisz się o obiekty
- system sobie poradzi, albo najpierw usuwasz obiekty a dopiero potem formularz na którym się one znajdują */

delete MyButton;
delete MyForm;
 

[marekgajewski]

Dzięki. Jesteś wielki Nawet nie spodziewałem się że to będzie takie proste

[usermaw]

I jeszcze moja sugestia. Niektóre kontrolki nie są widoczne po dynamicznym utworzeniu na dynamicznej formie.
Jeśli tak się stanie, trzeba odświeżać formę po "postawieniu na nogi" dynamicznego komponentu;

FormaDynamiczna->Refresh();

[Cyfrowy Baron]

To może wynikać tylko z jakiegoś systemowego błędu z odświeżaniem.

[unloco]

Jak do tej pory temat ten bardzo mi pomógł. Czy mogę prosić o informację, jak na nowo utworzonym TImage [nazwanym jak u twórcy tematu] zmusić, aby po naciśnięciu go LKM wykonany został kod:

Kod: Zaznacz cały

zmienna = 50;
Form2->ShowModal();


Umiem to zrobić 'ręcznie' tzn podczas tworzenia aplikacji wklepać ten kod (umiem też wyświetlać kolejne formularze/formatki/jakkolwiek się to nazywa ale podczas tworzenia). Ale jak to zrobić gdy obiekt jest stworzony dynamicznie?

EDIT już po napisaniu tego posta:

Warto jednak poszperać samemu. Udało mi się napisać rozwiązanie:

W Unit1.cpp stworzyłem:

Kod: Zaznacz cały

void __fastcall TForm1::ButonKlik(TObject *Sender)
{
// tutaj co się ma dziać
}


A w Unit1.h:

Kod: Zaznacz cały

void __fastcall TForm1::ButonKlik(TObject *Sender);


I zdarzenie wykonuje się poleceniem:

Kod: Zaznacz cały

DynamicznieUtworzonyObiekt->OnClick = &ButonKlik;


[Mironas]

1. Robisz taką samą funkcję obsługi zdarzenia jak na statycznie tworzonym formularzu - czyli:
w pliku *.hpp w sekcji __published:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

__published:    // IDE-managed Components
  void __fastcall Image1Click(TObject *Sender);
 

a w pliku *.cpp:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm15::Image1Click(TObject *Sender)
{
  zmienna = 50;
  Form2->ShowModal();
}
//---------------------------------------------------------------------------

2. Tam gdzie tworzysz dynamicznie Image dodajesz wiersz:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

  Image1->OnClick = Image1Click;

[unloco]

Mironas, uprzedziłeś mnie, napisałeś odpowiedź zanim zaktualizowałem swoją poprzednią wypowiedź . Ale dzięki również za wysiłek.

[PiotrStr]

Witam!

Odkopuję bardzo stary temat, na który natrafiłem szukając odpowiedzi na pytanie podobne do zadanego tutaj, ale działającego dla kilku obrazków utworzonych dynamicznie. Do każdego obrazka chciałbym przypisać inne zdarzenie wywołane kliknięciem myszy. Jest coś takiego wykonalne?
Na razie zrobiłem takie coś podpiętego pod kliknięcie przycisku:

Kod: Zaznacz cały

for(i=1;i<8;i++)
{
    Temp = "C:/obrazy/" + i + ".jpg";
    MyImage = new TImage(this);
    MyImage->Parent = this;
    MyImage->Picture->LoadFromFile(Temp);
    MyImage->Width = 200;
    MyImage->Height = 283;
    MyImage->Left = 10+j;
    MyImage->Top = 800;
    j+=210;
    MyImage->OnClick = MyImageClick; //
}


Obrazki się ładnie wyświetlają, ale utknąłem na obsłudze funkcji MyImageClick:

Kod: Zaznacz cały

void __fastcall TForm1::MyImageClick(TObject *Sender)
{
   MyImage->Top=900;
}

klikając w dowolny obrazek, ostatni z listy zostaje przesunięty, a chciałbym żeby to robił obrazek, który został kliknięty. Ktoś mógłby się wypowiedzieć i cokolwiek zasugerować?

[Mironas]

Nic prostszego. Robisz kilka różnych zdarzeń, np MyImageClick1, MyImageClick2, MyImageClick3 i dla każdego tworzonego Image przypinasz inne zdarzenie - np tak:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

if ( i == 1)
  MyImage->OnClick = MyImageClick1;
else if ( i == 2)
  MyImage->OnClick = MyImageClick2;
else if ( i == 3)
  MyImage->OnClick = MyImageClick3;
 

[PiotrStr]

Dzięki za odpowiedź. Nadal jednak jest to samo, czyli wykonuje się zdarzenie dla ostatniego obrazka z listy.

[Mironas]

To coś źle powiązałeś. Pokaż kod.

[PiotrStr]

W międzyczasie trochę zmodyfikowałem pierwotny zapis, wrzucając symbole obrazków (kart) do tablicy:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

for(i=1;i<8;i++)
{
    Temp = "C:/obrazy/" + taliaGracza[i] + ".jpg";
    MyImage = new TImage(this);
    MyImage->Parent = this;
    MyImage->Picture->LoadFromFile(Temp);
    MyImage->Width = 200;
    MyImage->Height = 283;
    MyImage->Left = 10+j;
    MyImage->Top = 800;
    j+=210;
    if ( taliaGracza[i] == 14)
    {
        MyImage->OnClick = MyImageClick14;
    } else if
     ( taliaGracza[i] == 15)
    {
        MyImage->OnClick = MyImageClick15;
    } else if
     ( taliaGracza[i] == 16)
    {
        MyImage->OnClick = MyImageClick16;
    }

I dalej...

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::MyImageClick14(TObject *Sender)
{

   MyImage->Top=900; //tutaj przesuwa ostatni obrazek zamiast tego który chcę
   Label25->Caption=14; //a tutaj działa prawidłowo dla każdego z klikniętych obrazków

}
void __fastcall TForm1::MyImageClick15(TObject *Sender)
{

   MyImage->Top=900;
      Label25->Caption=15;
}
void __fastcall TForm1::MyImageClick16(TObject *Sender)
{

   MyImage->Top=900;
      Label25->Caption=16;
}