Управление Программно созданными объектами

[dars73]

Добрый день уважаемые Гуру.
столкнулся с проблемой у меня кусок кода создает программно объекты типа TEdit

////////////////////////////////////////////////////////
procedure TForm3.Image1Click(Sender: TObject);
//Установка обьекта на  изображении
var MyEdit:TEdit;
begin
i:=i+1;
MyEdit:=TEdit.Create(self);
MyEdit.Name:=Format('MyEdit%d',[i]);
with TEdit(FindComponent(Format('MyEdit%d',[i]))) do
begin
Parent:=Form3;
Left:=mouse.CursorPos.X-form3.Left-4;
Top:=mouse.CursorPos.y-form3.Top-50;
Visible:=true;
parentcolor:=true;
end;
end;
//////////////////////////////////////////////////////////////////

после коздания объекта мне нужно его перемещать по форме. нашел вот такую статью:

//////////////////////////////////////////////////////////////////////////////
Для того, чтобы переместить какой-нибудь компонент (визуальный конечно же) нам необходимо послать компоненту соответствующее сообщение, с помощью метода Perform. Это делается примерно так:

ReleaseCapture;
edit1.Perform(WM_SYSCOMMAND, $F012, 0);

Все это надо записать в обработчик события OnMouseDown для нужного компонента, в данном случае это TEdit. И тогда при нажатии на компонент на экране появится контур компонента, когда вы выберите подходящее место и отпустите кнопку, компонент переместится туда!

Вот такой простой и красивый способ!
////////////////////////////////////////////////////////////////////////////

но этод способ описан к фексированно установленному компоненту.
как это можно связать этот метод с мои кодом?

и как например в созданый объект Edit внести текст.

большое спасибо за любые отклики.

Используйте тег СODE для оформления листингов - кнопка #. Модератор

[_SERGEYX_]

var NewEdit: TEdit;

NewEdit.create(self);... и т.д.
NewEdit.OnMouseDown := OldEdit.OnMouseDown;

Событие OnMouseDown для OldEdit должно существовать.

[dars73]

Сообщение от _SERGEYX_

var NewEdit: TEdit;

NewEdit.create(self);... и т.д.
NewEdit.OnMouseDown := OldEdit.OnMouseDown;

Событие OnMouseDown для OldEdit должно существовать.

спасибо за ответ. Но нельзя бы с примерчиком .
А то у меня пишет OldEdit не декларирована.
и в справке не нашел что это за вещь.

[SuperVisor]

Сообщение от dars73

спасибо за ответ. Но нельзя бы с примерчиком .
А то у меня пишет OldEdit не декларирована.
и в справке не нашел что это за вещь.

OldEdit???

Сообщение от _SERGEYX_

Событие OnMouseDown для OldEdit должно существовать.

OldEdit - какой-то другой Edit, его по сути может и не быть, а вот событие OnMouseDown должено соответствовать методу OnMouseDown класса TEdit.

[mihali4]

Попробую совсем просто объяснить.
Киньте на форму TEdit и задайте ему имя OldEdit.
Теперь в том же инспекторе объектов переключитесь на вкладку событий и задайте обработчик события OldEdit.OnMouseDown, т.е. впишите туда

ReleaseCapture;
(Sender as TEdit).Perform(WM_SYSCOMMAND, $F012, 0);

Теперь удалите компонент OldEdit. Сам компонент больше не существует, а вот нужное вам событие OldEdit.OnMouseDown в тексте осталось и вы его можете использовать.
Обратите внимание на параметр (Sender as TEdit).
Он означает, что этот обработчик вы можете назначить любому созданному TEdit-у, независимо от того, какое имя вы ему дали, поскольку обращение производится по имени класса.

[dars73]

Сообщение от mihali4

Попробую совсем просто объяснить.
Киньте на форму TEdit и задайте ему имя OldEdit.
Теперь в том же инспекторе объектов переключитесь на вкладку событий и задайте обработчик события OldEdit.OnMouseDown, т.е. впишите туда

Огромное спасибо Все прекрасно работает!!!

А подскажите пожалуйста. если я создаю события для реально установленного компонента на форме, то я могу переприсваивать их к динамически созданным в процессе выполнения программы. Достаточно просто сделать их невидимыми чтобы не путались под ногами?

и еще вопрос, Если не сильно надоел ,

можно ли как то отследить у динамических обьектов на ком из них был выполнен клик мышью?

тоесть например три MyEdit созданные программно.
нужно что бы текст менял цвет в том объекте на котором я кликну мышью. если это конечно реально.

Спасибо всем.
ВЕК ЖИВИ И ВЕК УЧИСЬ!!!

[mihali4]

Достаточно просто сделать их невидимыми чтобы не путались под ногами

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

можно ли как то отследить у динамических обьектов на ком из них был выполнен клик мышью?

Конечно, можно.
Например:

if (Sender as TEdit).Name='MyEdit1' then
(Sender as TEdit).Font.Color:=clRed else
if (Sender as TEdit).Name='MyEdit2' then
(Sender as TEdit).Font.Color:=clGreen else
if (Sender as TEdit).Name='MyEdit3' then
(Sender as TEdit).Font.Color:=clBlue;

[dars73]

Сообщение от mihali4

Конечно, можно.
Например:

if (Sender as TEdit).Name='MyEdit1' then
(Sender as TEdit).Font.Color:=clRed else
if (Sender as TEdit).Name='MyEdit2' then
(Sender as TEdit).Font.Color:=clGreen else
if (Sender as TEdit).Name='MyEdit3' then
(Sender as TEdit).Font.Color:=clBlue;

Как я правильно вас понял я должен проверять все 300-400 объектов

которые создает программа, через условие If и реальное имя MyEdit1,MyEdit2,.......

а как нибудь это зациклить можно?
или это единственный способ?

Большое спасибо всем за совместные обьяснения.

[Stilet]

300-400 объектов

Зачем столько много? Уж не проще ли их заменить каким нить гридом?
По теме, перебрать все эдиты на форме мона так:

for i:=0 to componentcount-1 do
if components[i] is Tedit then <Это Эдит>

[SuperVisor]

А можно перебор осуществить и по-другому:

for n:=1 to i do
_if (Sender as TEdit).Name='MyEdit'+inttostr(n) then
__DoSomething;