Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 18.03.2015, 16:36
keamono_reaus keamono_reaus вне форума
Прохожий
 
Регистрация: 18.03.2015
Сообщения: 7
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию CreateParams для Trackbar

Здравствуйте.
На форме лежит таскбар от alphaskins.
Хочу указать ему CreateParams.

Пишу:
Код:
type
  TsTrackBar = class(TsTrackBar)
   public
    procedure CreateParams(var Params: TCreateParams); override;
end;

---


procedure TsTrackbar.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style and TBS_FIXEDLENGTH ;
end;

Вылазит ошибка - Property SkinData не найдено.Что обьяснимо..
Для стандартного таскбара данный способ работает..
Что делаю не так?Нужен именно вариант изменения CreateParams у готового таскбара, который уже лежит на форме..
Ответить с цитированием
  #2  
Старый 18.03.2015, 16:43
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

имя класса наследника совпадает с именем класса родителя. если используется метод Geo, то должно быть так:
Код:
type
  TsTrackBar = class(<родной модуль>.TsTrackBar)
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #3  
Старый 18.03.2015, 16:57
keamono_reaus keamono_reaus вне форума
Прохожий
 
Регистрация: 18.03.2015
Сообщения: 7
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

<родной модуль> а это какой собственно не подскажете?
Ответить с цитированием
  #4  
Старый 18.03.2015, 18:33
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

там где объявлен класс TsTrackBar
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #5  
Старый 18.03.2015, 19:01
keamono_reaus keamono_reaus вне форума
Прохожий
 
Регистрация: 18.03.2015
Сообщения: 7
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Потому и спрашиваю, что не знаю)
У стандартного таскбара это commctrls, а для этого ума не приложу какой.
Ответить с цитированием
  #6  
Старый 18.03.2015, 19:20
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

так курсор то наведи на него. у меня нет альфаскинов.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
keamono_reaus (19.03.2015)
  #7  
Старый 18.03.2015, 19:25
keamono_reaus keamono_reaus вне форума
Прохожий
 
Регистрация: 18.03.2015
Сообщения: 7
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Если б так просто было...
При наведении никакой информации нет.
Ответить с цитированием
  #8  
Старый 18.03.2015, 20:01
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Курсор мышки.
Закоментируй свой класс тракбара, зажми Ctrl и кликни на классе тракбара (на котором у тебя курсор на картинке). Если все нормально, то откроется модуль в котором этот класс как раз и описан. Ну или скажет какой пыталась открыть, но не смогла найти, если компоненты стоят без исходников.
Ответить с цитированием
Этот пользователь сказал Спасибо lmikle за это полезное сообщение:
keamono_reaus (19.03.2015)
  #9  
Старый 18.03.2015, 20:23
keamono_reaus keamono_reaus вне форума
Прохожий
 
Регистрация: 18.03.2015
Сообщения: 7
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Да говорю же, нет ничего) Альфа скин стоит без сорцов, только dcu
Ответить с цитированием
  #10  
Старый 18.03.2015, 22:13
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от keamono_reaus
Да говорю же, нет ничего) Альфа скин стоит без сорцов, только dcu
У меня тоже стоят, ни как не снесу, лень-матушка, а по теме вам нужно прописать в uses sTrackBar, "коженные" ползунки там обитают
Ответить с цитированием
Этот пользователь сказал Спасибо Alegun за это полезное сообщение:
keamono_reaus (19.03.2015)
  #11  
Старый 18.03.2015, 22:41
keamono_reaus keamono_reaus вне форума
Прохожий
 
Регистрация: 18.03.2015
Сообщения: 7
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Alegun, так давно там прописаны они
Если на форму кинуть этот трекбар то он автоматом в uses добавляется..Проблему это не решает..(
Ответить с цитированием
  #12  
Старый 19.03.2015, 08:05
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Цитата:
Сообщение от keamono_reaus
автоматом в uses добавляется
вот и смотри какие модули добавляются в uses. в одном из них будет TsTrackBar. имя этого модуля и нужно прописать в методе Geo.
вот я навел курсор на класс:

__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
keamono_reaus (19.03.2015)
  #13  
Старый 19.03.2015, 16:05
keamono_reaus keamono_reaus вне форума
Прохожий
 
Регистрация: 18.03.2015
Сообщения: 7
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Разобрался, спасибо)
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 21:37.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025