Создать справочную систему по компонентам Delphi

@bewbewbew · Регистрация: 22.11.2015

Студворк — интернет-сервис помощи студентам

Доброго времени суток , я первый курс , задача на курсовую работу "создать справочную систему по компонентам делфи" , Опыта мало , прошу помочь, хотя-бы расскажите что к чему.Спасибо

@bewbewbew · 25.11.2015, 16:48 **[ТС]**

http://rghost.ru/8ykTLtLND вот залил

@VladWH · 25.11.2015, 17:50

bewbewbew, посмотрел. Но вот смотрите у вас там по нескольку раз прописано одно и то же:
При перемещении объектов код одинаковый
При показе компонента( по нажатию кнопки с названием компонента )
Код по сути одинаковый и его можно и даже нужно сократить. Ну да бог с ним пока. По нажатию на что и по какому событию вы хотите менять цвет?
P.S. координаты у вас просто экранные - вам их нужно перевести в локальные - ScreenToClient, в твоем случае так

Delphi
1
pt := pnl1.ScreenToClient(pt);

это в таймере после получения положения курсора

@bewbewbew · 25.11.2015, 23:56 **[ТС]**

мне нужно создать отдельную кнопку , при нажатии на которую вызывалась бы палитра

Добавлено через 9 минут
добавил эту строку , после
Label1.Caption:=IntToStr(pt.X)+' '+IntToStr(pt.Y);
pt := pnl1.ScreenToClient(pt); ничего не изменилось

@VladWH · 26.11.2015, 00:39

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

добавил эту строку , после

а надо до.... я же написал после получения положения курсора....

Delphi
1
2
3
получение положения курсора
pt := pnl1.ScreenToClient(pt);
Label1.Caption:=IntToStr(pt.X)+' '+IntToStr(pt.Y);

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

нужно создать отдельную кнопку , при нажатии на которую вызывалась бы палитра

добавь на форму кнопку и ColorDialog при нажатии на кнопку напиши что-то вроде

Delphi
1
2
3
if ColorDialog1.Execute then
  // ОбъектКоторомуНужноЗадатьЦвет, например
  Form1.Color := ColorDialog1.Color;

@bewbewbew · 26.11.2015, 01:35 **[ТС]**

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

добавь на форму кнопку и ColorDialog при нажатии на кнопку напиши что-то вроде

я так делал , цвет кнопки не меняется вот..

Добавлено через 2 минуты
а как сделать , что бы координаты показывало только в приделах панели? Точка начала изменилась , спасибо)

Добавлено через 12 минут
меняет цвета всего , кроме кнопки , можно как то задать ее цвет? или загружать картинку , вместо нее?

@VladWH · 26.11.2015, 01:43

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

что бы координаты показывало только в приделах панели?

Проверять находится ли курсор над панелью, если нет, то не показывать.

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

меняет цвета всего , кроме кнопки , можно как то задать ее цвет?

Для стандартной кнопки - TButton достаточно сложно....

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

или загружать картинку , вместо нее?

Использовать TBitBtn у нее есть свойство Glyph - изображение

@bewbewbew · 26.11.2015, 01:50 **[ТС]**

как проверить что над панелью?

@VladWH · 26.11.2015, 02:01

bewbewbew, можно по тем же координатам, а можно

Delphi
1
2
3
 if ControlAtPos(pt, false)= Твоя панель
  then Показываем координаты
  else Не показываем координаты

но в твоем случае так как ты будешь перемещать объект, то данный код не совсем верен...

@bewbewbew · 26.11.2015, 02:09 **[ТС]**

столкнулся с проблемой , поставил я кнопку , она меняет цвет одного элемента , если я делаю это ко всем элементам , то у меня окно палитры запускается 10 раз

@VladWH · 26.11.2015, 02:18

bewbewbew, можно так

Delphi
1
2
3
4
5
6
7
8
uses TypInfo;
..................
var I: Integer;
begin
 if ColorDialog1.Execute then
  for I:=0 to pnl1.ControlCount-1 do
   if GetPropInfo(pnl1.Controls[I].ClassInfo, 'Color')<>nil then
    SetPropValue(pnl1.Controls[I], 'Color', ColorDialog1.Color);

Добавлено через 58 секунд
присвоит цвет всем контролам на панели у которых есть св-во Color

@bewbewbew · 26.11.2015, 20:54 **[ТС]**

попробую , а с кнопкой что делать? Изображение заменить?

@VladWH · 27.11.2015, 00:30

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

а с кнопкой что делать? Изображение заменить?

можно добавить условие

Delphi
1
2
3
4
5
6
7
8
9
10
if GetPropInfo(pnl1.Controls[I].ClassInfo, 'Color')<>nil then
    SetPropValue(pnl1.Controls[I], 'Color', ColorDialog1.Color) else
if pnl1.Controls[I] is TBitBtn then
with TBitBtn(pnl1.Controls[I]) do
begin 
 Glyph.Width := Width;
 Glyph.Height := Height;
 Glyph.Canvas.Brush.Color := ColorDialog1.Color;
 Glyph.Canvas.Rectangle( Rect(0,0,Width, Height) );
end;

@bewbewbew · 27.11.2015, 09:47 **[ТС]**

если присваивать это кнопке для замены цвета , то выдает ошибку между else и if

@VladWH · 27.11.2015, 12:29

bewbewbew, какую ошибку?

Добавлено через 8 минут
попробовал на твоем проекте сейчас - все работает. Добавил кнопку для замены цвета, ColorDialog и заменил кнопку TButton на TBitBtn Код кнопки замены цвета

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.btn10Click(Sender: TObject);
 var I: Integer;
begin
 if ColorDialog1.Execute then
  for I:=0 to pnl1.ControlCount-1 do
   if GetPropInfo(pnl1.Controls[I].ClassInfo, 'Color')<>nil then
    SetPropValue(pnl1.Controls[I], 'Color', ColorDialog1.Color) else
   if pnl1.Controls[I] is TBitBtn then
    with TBitBtn(pnl1.Controls[I]) do
     begin
      Glyph.Width := Width;
      Glyph.Height := Height;
      Glyph.Canvas.Brush.Color := ColorDialog1.Color;
      Glyph.Canvas.Rectangle( Rect(0,0,Width, Height) );
     end;
end;

@bewbewbew · 28.11.2015, 19:40 **[ТС]**

ну тогда последняя проблема , это как ограничить координаты

@VladWH · 29.11.2015, 02:06

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

последняя проблема , это как ограничить координаты

я же уже ответил до этого, что либо по координатам панели, либо

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

можно

Delphi
1
2
3
if ControlAtPos(pt, false)= Твоя панель
 then Показываем координаты
 else Не показываем координаты

@bewbewbew · 29.11.2015, 12:39 **[ТС]**

к как это сформулировать

Добавлено через 1 час 38 минут

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.btn10Click(Sender: TObject);
*var I: Integer;
begin
*if ColorDialog1.Execute then
* for I:=0 to pnl1.ControlCount-1 do
* *if GetPropInfo(pnl1.Controls[I].ClassInfo, 'Color')<>nil then
* * SetPropValue(pnl1.Controls[I], 'Color', ColorDialog1.Color) else
* *if pnl1.Controls[I] is TBitBtn then
* * with TBitBtn(pnl1.Controls[I]) do
* * *begin
* * * Glyph.Width := Width;
* * * Glyph.Height := Height;
* * * Glyph.Canvas.Brush.Color := ColorDialog1.Color;
* * * Glyph.Canvas.Rectangle( Rect(0,0,Width, Height) );
* * *end;
end;

после then выдает ошибку.

Добавлено через 9 минут
http://rghost.ru/7KxBdP6Lq

@VladWH · 29.11.2015, 22:09

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

после then выдает ошибку

вообще надо проект прилагать, а не скрин и лучше на форум, а не на сторонний файлообменник. Возможно не подключен модуль Buttons в uses. На всякий случай прилагаю твой проект в котором этот код работает

@VladWH · 29.11.2015, 22:12

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

к как это сформулировать

например так

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.tmr1Timer(Sender: TObject);
var
  pt:TPoint;
begin
 GetCursorPos(pt);
 label1.Visible := ControlAtPos(ScreenToClient(pt), False, True) = pnl1;
 pt := pnl1.ScreenToClient(pt);
 Label1.Caption:=IntToStr(pt.X)+' '+IntToStr(pt.Y);
end;

@bewbewbew · 01.12.2015, 20:37 **[ТС]**

А как сделать чтобы кнопка красилась полностью , а не торчал кусок с именем?

Новые блоги и статьи Все статьи Все блоги /
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .

@bewbewbew 2 / 2 / 0 Регистрация: 22.11.2015 Сообщений: 45

	Создать справочную систему по компонентам Delphi 22.11.2015, 20:25. Показов 4115. Ответов 60 Метки нет (Все метки) Доброго времени суток , я первый курс , задача на курсовую работу "создать справочную систему по компонентам делфи" , Опыта мало , прошу помочь, хотя-бы расскажите что к чему.Спасибо 0

@bewbewbew 2 / 2 / 0 Регистрация: 22.11.2015 Сообщений: 45
	25.11.2015, 16:48 [ТС]
	http://rghost.ru/8ykTLtLND вот залил 0

@bewbewbew 2 / 2 / 0 Регистрация: 22.11.2015 Сообщений: 45
	25.11.2015, 23:56 [ТС]
	мне нужно создать отдельную кнопку , при нажатии на которую вызывалась бы палитра Добавлено через 9 минут добавил эту строку , после Label1.Caption:=IntToStr(pt.X)+' '+IntToStr(pt.Y); pt := pnl1.ScreenToClient(pt); ничего не изменилось 0

@bewbewbew 2 / 2 / 0 Регистрация: 22.11.2015 Сообщений: 45
	26.11.2015, 01:50 [ТС]
	как проверить что над панелью? 0

@bewbewbew 2 / 2 / 0 Регистрация: 22.11.2015 Сообщений: 45
	26.11.2015, 02:09 [ТС]
	столкнулся с проблемой , поставил я кнопку , она меняет цвет одного элемента , если я делаю это ко всем элементам , то у меня окно палитры запускается 10 раз 0

@bewbewbew 2 / 2 / 0 Регистрация: 22.11.2015 Сообщений: 45
	26.11.2015, 20:54 [ТС]
	попробую , а с кнопкой что делать? Изображение заменить? 0

@bewbewbew 2 / 2 / 0 Регистрация: 22.11.2015 Сообщений: 45
	27.11.2015, 09:47 [ТС]
	если присваивать это кнопке для замены цвета , то выдает ошибку между else и if 0

@bewbewbew 2 / 2 / 0 Регистрация: 22.11.2015 Сообщений: 45
	28.11.2015, 19:40 [ТС]
	ну тогда последняя проблема , это как ограничить координаты 0

@bewbewbew 2 / 2 / 0 Регистрация: 22.11.2015 Сообщений: 45
	01.12.2015, 20:37 [ТС]
	А как сделать чтобы кнопка красилась полностью , а не торчал кусок с именем? 0