ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / C++ [игнор отключен] [закрыт для гостей] / Помогите с Дельфи на CBuilder перевести
10 сообщений из 35, страница 2 из 2
  2  все
Помогите с Дельфи на CBuilder перевести
    #32568325
kbk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kbk
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
void __fastcall TForm1::StaticText1Click(TObject *Sender)
{
class THack : public TControl
{
public:
  __property Color;
};
TControl* my=dynamic_cast<TControl*>(Sender);
if (my) ((THack*)my)->Color=clWhite;
}
...
Рейтинг: 0 / 0
19.06.2004, 07:54
| Ответить | Цитировать | Написать  
Помогите с Дельфи на CBuilder перевести
    #32568521
Одноглазый
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Одноглазый
Гость
Надо же.
Ребят попадаются очень даже башаковитые.
Очень интересно. Спасибо буду юзать.
...
Рейтинг: 0 / 0
19.06.2004, 21:59
| Ответить | Цитировать | Написать  
Помогите с Дельфи на CBuilder перевести
    #32570490
Lepsik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lepsik
Участник
2JibSkeart
--да просто у класса TControl нету метода color

Всю жизнь был. А вот то что некоторые свойств из них не для изменения (в отличие от Delphi), что приходится использовать непрямые методы говорит о кривых руках программистов Borland или пользоваться пропертями Color в классах ниже где они открыты, что я согласен бывает не совсем удобно.

-------------------
TControl::Color
Specifies the background color of the control.

__property Graphics::TColor Color = {read=FColor, write=SetColor, stored=IsColorStored, default=-2147483643 };

Description

Use Color to read or change the background color of the control.

If a control's ParentColor property is true, then changing the Color property of the control's parent automatically changes the Color property of the control. When the value of the Color property is changed, the control's ParentColor property is automatically set to false.
...
Рейтинг: 0 / 0
21.06.2004, 20:01
| Ответить | Цитировать | Написать  
Помогите с Дельфи на CBuilder перевести
    #32571006
Фотография JibSkeart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JibSkeart
Участник
2Lepsik
Хммм , а что он у меня кричал что нету такой проперти Color ...
хотя может я просто очепятался когда пробовал :)

 ш
(';')
(V),(V),,
Код: plaintext
 JS
...
Рейтинг: 0 / 0
22.06.2004, 10:37
| Ответить | Цитировать | Написать  
Помогите с Дельфи на CBuilder перевести
    #32571011
Фотография JibSkeart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JibSkeart
Участник
ОдноглазыйНадо же.
Ребят попадаются очень даже башаковитые.
Очень интересно. Спасибо буду юзать.

Да несомнено , я бы просто не догодался бы так сделать :)
хотя как знать ...
...
Рейтинг: 0 / 0
22.06.2004, 10:38
| Ответить | Цитировать | Написать  
Помогите с Дельфи на CBuilder перевести
    #32578965
LAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LAlex
Гость
У компонентов есть метод InheritsFrom, только пишется там все несколько навороченно:

if(Sender->InheritsFrom(__classid(TControl)))
{
.....
}
...
Рейтинг: 0 / 0
28.06.2004, 08:27
| Ответить | Цитировать | Написать  
Помогите с Дельфи на CBuilder перевести
    #32579028
Фотография JibSkeart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JibSkeart
Участник
2LAlex
Будем знать :)


 ш
(';')
(V),(V),,
Код: plaintext
 JS
...
Рейтинг: 0 / 0
28.06.2004, 09:27
| Ответить | Цитировать | Написать  
Помогите с Дельфи на CBuilder перевести
    #32735207
Vladimir O
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vladimir O
Гость
Поднимаем старые темы. Почему код не работает? Пробовал просто писать Color, как в предыдущих письмах. Компилиться, а изменения не происходит... BCB6. Известно, что Сендер всегда TButton

Код: plaintext
1.
2.
3.
4.
5.
6.
    class TBut2 : public TControl
    {
    public:
      __property Font;
    };
    TControl* but=dynamic_cast<TControl*>(Sender);
    if (but) ((TBut2*)but)->Font->Color = clWhite;
...
Рейтинг: 0 / 0
13.10.2004, 05:40
| Ответить | Цитировать | Написать  
Помогите с Дельфи на CBuilder перевести
    #32737262
Lepsik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lepsik
Участник
в отладчике смотреть надо.
...
Рейтинг: 0 / 0
13.10.2004, 22:35
| Ответить | Цитировать | Написать  
Помогите с Дельфи на CBuilder перевести
    #32737635
Фотография JibSkeart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JibSkeart
Участник
Vladimir OПоднимаем старые темы. Почему код не работает? Пробовал просто писать Color, как в предыдущих письмах. Компилиться, а изменения не происходит... BCB6. Известно, что Сендер всегда TButton

Код: plaintext
1.
2.
3.
4.
5.
6.
    class TBut2 : public TControl
    {
    public:
      __property Font;
    };
    TControl* but=dynamic_cast<TControl*>(Sender);
    if (but) ((TBut2*)but)->Font->Color = clWhite;


или сделать так

Код: plaintext
1.
2.
3.
4.
 if (dynamic_cast<TBut2*>(Sender))
 {
    dynamic_cast<TBut2*>(Sender)->Font->Color = clWhile;
 }
...
Рейтинг: 0 / 0
14.10.2004, 10:17
| Ответить | Цитировать | Написать  
10 сообщений из 35, страница 2 из 2
  2  все
Форумы / C++ [игнор отключен] [закрыт для гостей] / Помогите с Дельфи на CBuilder перевести
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=57&msg=32568521&tid=2034252]:
 0ms
get settings:
 12ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 76ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 63ms
get tp. blocked users:
 2ms
others: 228ms
total:  421ms
созд. / загр.: 421ms
x
x
Закрыть


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