Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.11.2007, 03:55   #11
dars73
 
Регистрация: 06.11.2007
Сообщений: 8
По умолчанию

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

а скажите люди добрые где вы инфу черпаете, в какой волшебной книге?
dars73 вне форума Ответить с цитированием
Старый 09.11.2007, 10:13   #12
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
а скажите люди добрые где вы инфу черпаете, в какой волшебной книге?
В основном в той, которой "кушают", т.е. в голове. А ежели напряг какой вдруг случается, то при помощи "волшебной" клавиши F1 можно узнать практически все остальное.
mihali4 вне форума Ответить с цитированием
Старый 11.11.2007, 01:41   #13
dars73
 
Регистрация: 06.11.2007
Сообщений: 8
По умолчанию

Цитата:
Сообщение от 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 вне форума Ответить с цитированием
Старый 19.11.2007, 00:44   #14
dars73
 
Регистрация: 06.11.2007
Сообщений: 8
По умолчанию

кто нибудь может подсказать что же у меня случилось. Почему label больше недвижима при перетаскивании мышью?
dars73 вне форума Ответить с цитированием
Старый 19.11.2007, 01:42   #15
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Поставьте точку останова на красную строчку
Код:
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;
и проверьте, а выполняется ли вообще обращение к этой процедуре?
mihali4 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с классами и объектами Shavminator Общие вопросы Delphi 7 18.12.2009 04:11
Как заполнить форму 6-иугольными объектами DeKot Gamedev - cоздание игр: Unity, OpenGL, DirectX 3 26.08.2008 21:59
Взаимодействие ListView с рукописными объектами. Turbine Общие вопросы Delphi 1 15.08.2008 11:27
Взаимодействие ListView с другими объектами. Передача Turbine Компоненты Delphi 0 13.08.2008 22:40
Управление TChar программно Sanprof Общие вопросы Delphi 5 18.02.2008 20:06