//Создание нового компонента------------------------------------
int X = 20,Y = 70;
int N=N;
void __fastcall TAppForm::ToolButton7Click(TObject *Sender)
{
TImage *Pict = new TImage(this);
Pict->Parent = AppForm;
Pict->AutoSize = true;
Pict->Name = "Image" + (AnsiString)N;
Pict->Picture->LoadFromFile("Allarm.ico");
Pict->Tag = N;
Pict->Left=X;
Pict->Top=Y;
Pict->Hint = Pict->Name;
Pict->OnMouseDown = ImageMouseDown;
Pict->OnMouseMove = ImageMouseMove;
Pict->OnMouseUp = ImageMouseUp;
Pict->OnDblClick = ImageDblClick;
// Pict->OnClick = ImageClick;
N = N++;
X = X + 10;
Y = Y + 10;
}
Присвоить форме свойств имя обекта
Вопрос в следующем:
На главной форме создаются объекты, для которых нужно отобразить определенные параметры
При DoubleClick`е появляется форма с параметрами для этого объекта.
Хочу чтобы в заголовке этой формы было имя объекта.
Жду любые мысли по этому поводу
На главной форме создаются объекты, для которых нужно отобразить определенные параметры
Код:
При DoubleClick`е появляется форма с параметрами для этого объекта.
Код:
void __fastcall TAppForm::ImageDblClick(TObject *Sender)
{
TForm*Form = new TPropertyForm(Application);
Form->Show();
Form->Name = ???????->Name;
Form->Caption = Form->Name;
}
{
TForm*Form = new TPropertyForm(Application);
Form->Show();
Form->Name = ???????->Name;
Form->Caption = Form->Name;
}
Хочу чтобы в заголовке этой формы было имя объекта.
Жду любые мысли по этому поводу
В чем проблема то
Код:
void __fastcall TAppForm::ImageDblClick(TObject *Sender)
{
TComponent *c = (TComponent *)Sender;
TForm*Form = new TPropertyForm(Application);
Form->Show();
Form->Name = c->Name;
Form->Caption = Form->Name;
}
{
TComponent *c = (TComponent *)Sender;
TForm*Form = new TPropertyForm(Application);
Form->Show();
Form->Name = c->Name;
Form->Caption = Form->Name;
}
Sender вроде как должен указывать на того кто ловит сообщение, т.е. в частности на TImage. который создавался.
Попробывать можно так:
Попробывать можно так:
Код:
TImage* Pict = dynamic_cast<TImage*>(Sender);
Form->Name = Pict->Name;
Form->Name = Pict->Name;
Спасибо,
Оба варианта работают
Оба варианта работают