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

[dars73]

Ага, спасибо. Попробую оба варианта.

а скажите люди добрые где вы инфу черпаете, в какой волшебной книге?

[mihali4]

а скажите люди добрые где вы инфу черпаете, в какой волшебной книге?

В основном в той, которой "кушают", т.е. в голове. А ежели напряг какой вдруг случается, то при помощи "волшебной" клавиши F1 можно узнать практически все остальное.

[dars73]

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

В основном той, которой "кушают", т.е. в голове.

Это прикрасно!
но в той чем кушаю не находяться ответы на некоторые неорденарные страности.

вот например одна из них: сдесь на форуме люди добрые помогли с кодом

procedure TForm1.OldEditMouseDown(Sender: TObject; Button: TMouseButton;
//Присвоение реальному объекту Edit События EditMouseDown
  Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
(Sender as TEdit).Perform(WM_SYSCOMMAND, $F012, 0);
end;

я имзменил и сделал

procedure TForm1.OldLabelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
//Присвоение реальному объекту Lbel События LabelMouseDown
begin
ReleaseCapture;
(Sender as Tlabel).Perform(WM_SYSCOMMAND, $F012, 0);
end;

уже обрадовался все заработало но водруг. после установки фаст репорт перестала ползать по форме Label.
деинсталировал репорт, Label стоит как вкопаная на форме.
edit могу перемещать беспроблемно.
что случилось не пойму????

[dars73]

кто нибудь может подсказать что же у меня случилось. Почему label больше недвижима при перетаскивании мышью?

[mihali4]

Поставьте точку останова на красную строчку

procedure TForm1.OldLabelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
//Присвоение реальному объекту Lbel События LabelMouseDown
begin
ReleaseCapture;
(Sender as Tlabel).Perform(WM_SYSCOMMAND, $F012, 0);
end;

и проверьте, а выполняется ли вообще обращение к этой процедуре?