ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как найти любой Control на форме
10 сообщений из 10, страница 1 из 1
Как найти любой Control на форме
    #32130393
G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
G
Гость
Добрый вечер

Вопрос по поводу Control-в которые находятся
на Форме.
Как можно найти любой Control с помощью MouseMove
смотрел функцию ControlAtPos да не работает ошибку дает. :(
...
Рейтинг: 0 / 0
31.03.2003, 17:07
| Ответить | Цитировать | Написать  
Как найти любой Control на форме
    #32130403
pkarklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pkarklin
Участник
смотрел функцию ControlAtPos да не работает ошибку дает. :(

Кусок кода можешь показать. И зачем это надо напиши.
...
Рейтинг: 0 / 0
31.03.2003, 17:17
| Ответить | Цитировать | Написать  
Как найти любой Control на форме
    #32130419
G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
G
Гость
Мне нужно узнать TcomponentName контрола

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
  procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
    Var
     P:Tpoint;
  begin
   P.x:=X;
   P.y:=y;
   label1.Caption:=Form1.ControlAtPos(p,false).Name ;
  end;
...
Рейтинг: 0 / 0
31.03.2003, 17:35
| Ответить | Цитировать | Написать  
Как найти любой Control на форме
    #32130424
Фотография SmaLL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SmaLL
Участник
Этот обработчик присваиваешь всем контролам на форме - Sender - это и будет твой контрол, а в обработчике:
Код: plaintext
1.
  label1.Caption:= (Sender as TComponent).Name;
...
Рейтинг: 0 / 0
31.03.2003, 17:41
| Ответить | Цитировать | Написать  
Как найти любой Control на форме
    #32130432
G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
G
Гость
Так он тебе даст Имя формы
а мне нужно имя дочернего контрола который находитси в
этой форме.
...
Рейтинг: 0 / 0
31.03.2003, 17:48
| Ответить | Цитировать | Написать  
Как найти любой Control на форме
    #32130446
pkarklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pkarklin
Участник
Господа, если вы пользуетесь методами, которые возвращают ссылку на объект, не забывайте проверять ее на nil. Это раз.

А во-вторых. Ты пишешь обработчик движения мыши, где получаешь координаты Х,Y в пределах кнопки, а ControlAtPos вызываешь у формы.
...
Рейтинг: 0 / 0
31.03.2003, 17:58
| Ответить | Цитировать | Написать  
Как найти любой Control на форме
    #32130456
Фотография SmaLL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SmaLL
Участник
Мой код прекрасно работает, если этот обработчик указать всем контролам на форме!

Проверка на нил - это само-собой.
...
Рейтинг: 0 / 0
31.03.2003, 18:04
| Ответить | Цитировать | Написать  
Как найти любой Control на форме
    #32130460
G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
G
Гость
Да опять поспешил :))
Ты прав pkarklin
Так как же найти
...
Рейтинг: 0 / 0
31.03.2003, 18:06
| Ответить | Цитировать | Написать  
Как найти любой Control на форме
    #32130467
pkarklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pkarklin
Участник
2 G

Ты скажешь или нет, что сделать то хочешь. Ну получишь ты Control, дальше что с ним делать то будешь? И учти, событие OnMoseMove генериться очень часто, так что крутую обработку на него не завязывай.
...
Рейтинг: 0 / 0
31.03.2003, 18:08
| Ответить | Цитировать | Написать  
Как найти любой Control на форме
    #32130476
G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
G
Гость
Спасибо Small,pkarklin :))
Мне просто нужно было находить
имена контролов.
...
Рейтинг: 0 / 0
31.03.2003, 18:18
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как найти любой Control на форме
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]