Помогите с Дельфи на CBuilder перевести / C++

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / C++ [игнор отключен] [закрыт для гостей] / Помогите с Дельфи на CBuilder перевести

35 сообщений из 35, показаны все 2 страниц

все

Помогите с Дельфи на CBuilder перевести

#32560955

Обычный_чайник

Гость

Тут увидел как опытные люди давали совет на Дельфи, а я ее самостоятельно не могу на CBuilder перевести.

Может подсобите код очень часто необходимый.

type
THack= class(TControl);

И ты получишь доступ к свойству Color текущего объекта.

if Sender is TControl then THack(Sender).Color := clWhite;

Спасибо

...

Рейтинг:

0 / 0

15.06.2004, 08:35

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32561045

MySQLdb

Участник

Сообщения: 421

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.

class THack : public (TControl);

THack *My;

My = new(THack);

if (Sender is TControl) { My->Sender->Color = clWhite;}

-----------------------------------------------------------
С уважением,MySQLdb

...

Рейтинг:

0 / 0

15.06.2004, 10:13

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32561216

Коктейл

Гость

В билдере нет is , зато есть dynamic_cast

Удачи

...

Рейтинг:

0 / 0

15.06.2004, 11:32

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32561224

Обычный_чайник

Гость

Не получается что здесь не так?

class THack {public:TControl;};
. . . . .

void __fastcall TForm1::Edit1Enter(TObject *Sender)
{
THack *My;
My = new(THack);

if (dynamic_cast<TControl *> (Sender))
{
My->Sender->Color=clWhite;
}

...

Рейтинг:

0 / 0

15.06.2004, 11:35

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32561246

JibSkeart

Участник

Откуда: Из далекой галактики

Сообщения: 18 930

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

class THack {public:TControl;};
. . . . .

void __fastcall TForm1::Edit1Enter(TObject *Sender)
{
THack *My;
My = new(THack);

if (dynamic_cast<TControl *> (Sender))
{
   dynamic_cast<TControl&> (*Sender)->Color=clWhite;
}

^{ш

(';')

(V),(V),,}

Код: plaintext

JS

...

Рейтинг:

0 / 0

15.06.2004, 11:44

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32561338

Обычный_чайник

Гость

Неа ошибку пишет
E2288 Pointer to structure required on left side of -> or ->*

...

Рейтинг:

0 / 0

15.06.2004, 12:24

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32561348

Обычный_чайник

Гость

Ой, забыл написать что в следующей строке ошибка, а как правильно написать?

dynamic_cast<TControl&> (*Sender)->Color=clWhite;

...

Рейтинг:

0 / 0

15.06.2004, 12:29

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32561365

JibSkeart

Участник

Откуда: Из далекой галактики

Сообщения: 18 930

Рейтинг: 0 / 0

наверное правильней всетаки будет так ...

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

class THack {public:TControl;};
. . . . .

void __fastcall TForm1::Edit1Enter(TObject *Sender)
{
THack *My;
My = new(THack);

if (dynamic_cast<TControl*>(Sender))
{
  dynamic_cast<THack&>(*Sender)->Color=clWhite;
}

^{ш

(';')

(V),(V),,}

Код: plaintext

JS

...

Рейтинг:

0 / 0

15.06.2004, 12:33

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32561379

JibSkeart

Участник

Откуда: Из далекой галактики

Сообщения: 18 930

Рейтинг: 0 / 0

Я так понял , что вы хотите сделать ,
если переходищь на какойто TEdit , то сделать его цвет белым ?

ну и соотвесвенно (если вдруг я понял правильно),
можно сделать так

Код: plaintext

1.
2.
3.
4.
5.
6.
7.

void __fastcall TForm1::Edit1Enter(TObject *Sender)
{
 if (dynamic_cast<TEdit*>(Sender))
   {
       dynamic_cast<TEdit&>(*Sender).Color = clWhite;
   }
}

^{ш

(';')

(V),(V),,}

Код: plaintext

JS

...

Рейтинг:

0 / 0

15.06.2004, 12:39

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32561391

Обычный_чайник

Гость

Вот именно что заранее неизвесто что Tedit.
Это может быть и CheckBox1 и Datepicker.

Подскажите плиз.

...

Рейтинг:

0 / 0

15.06.2004, 12:46

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32561437

JibSkeart

Участник

Откуда: Из далекой галактики

Сообщения: 18 930

Рейтинг: 0 / 0

Хмм ну тогда только если так ...

void __fastcall TForm1::Edit1Enter(TObject *Sender)
{
if (dynamic_cast<TEdit*>(Sender))
{
dynamic_cast<TEdit&>(*Sender).Color = clWhite;
}
if (dynamic_cast<TCheckBox*>(Sender))
{
dynamic_cast<TCheckBox&>(*Sender).Color = clWhite;
}
...
}

^{ш

(';')

(V),(V),,}

Код: plaintext

JS

...

Рейтинг:

0 / 0

15.06.2004, 13:06

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32561459

Обычный_чайник

Гость

Извините, но все эти головные боли были сделаны чтобы не перечислять
все классы объектов.
На Дельфи это выглядит как в начале и никаких проблем.
Может есть аналог но на Билдере?
Можно и switch (case) при худшем случае.
Но обидно если нельзя.

...

Рейтинг:

0 / 0

15.06.2004, 13:14

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32561641

Artemkaa

Гость

CBuilder написан на Дельфи поэтому может он и урезанный.

...

Рейтинг:

0 / 0

15.06.2004, 14:19

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32561680

JibSkeart

Участник

Откуда: Из далекой галактики

Сообщения: 18 930

Рейтинг: 0 / 0

Что за глуппости ?

^{ш

(';')

(V),(V),,}

Код: plaintext

JS

...

Рейтинг:

0 / 0

15.06.2004, 14:29

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32562199

АлиДуба

Гость

Ну что никто не знает ответ.
Может помучить еще или сразу ответить?

...

Рейтинг:

0 / 0

15.06.2004, 17:15

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32562385

Lepsik

Участник

Откуда: glubinka

Сообщения: 4 167

Рейтинг: 0 / 0

2чайник

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

TControl *ctrl = dynamic_cast<TControl *>(Sender);
if( NULL != ctrl )
ctrl->Color = clWhite;

причем ответ на С++ будет всегда короче и проще чем на дельфи

...

Рейтинг:

0 / 0

15.06.2004, 18:35

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32562453

Обычный_чайник

Гость

Спасибо что мозги мне правляете я же чайник,
но и Ваш вылетает с ошибкой. Может по памяти пишите.
Неужели нет под рукой билдера?
Спасибо буду ждать еще, может кто пояснит.
:(

CBuilder5
E2247 'TControl::Color' is not accessible

...

Рейтинг:

0 / 0

15.06.2004, 19:28

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32562500

334455

Гость

Слушай замучил ты всех.
Читай книжки.

Попробуй результат dynamic_cast(...) сохранить. в аа например
аа = dynamic_cast(...) ;
аа->Color=бэлий

...

Рейтинг:

0 / 0

15.06.2004, 20:01

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32562513

Обычный_чайник

Гость

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

...

Рейтинг:

0 / 0

15.06.2004, 20:24

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32562580

Обычный_чайник

Гость

Сдаюсь, вот окончательно, больше ничего не получается.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

void __fastcall TForm1::Edit1Enter(TObject *Sender)
{

if (dynamic_cast<TEdit*>(Sender))
   ((TEdit*)Sender)->Color=clYellow;

if (dynamic_cast<TCheckBox*>(Sender))
   ((TCheckBox*)Sender)->Color=clYellow;

}
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit1Exit(TObject *Sender)
{
if (dynamic_cast<TEdit*>(Sender))
   ((TEdit*)Sender)->Color=clWhite;

if (dynamic_cast<TCheckBox*>(Sender))
   ((TCheckBox*)Sender)->Color=clWhite;

...

Рейтинг:

0 / 0

15.06.2004, 21:50

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32562588

Lepsik

Участник

Откуда: glubinka

Сообщения: 4 167

Рейтинг: 0 / 0

не должно вылетать с ошибкой. все у тебя написано правильно.

Я так весьма регулярно делаю

...

Рейтинг:

0 / 0

15.06.2004, 22:05

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32563090

JibSkeart

Участник

Откуда: Из далекой галактики

Сообщения: 18 930

Рейтинг: 0 / 0

2Lepsik
да просто у класса TControl нету метода color

^{ш

(';')

(V),(V),,}

Код: plaintext

JS

...

Рейтинг:

0 / 0

16.06.2004, 11:10

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32564483

АБВГДЭЮЯ

Гость

Не метод, а свойство.
Пробовал код под Дельфи все катит. На билдере глючит.
Значит ребята из Борланда что то намудрили.
Странно.

...

Рейтинг:

0 / 0

16.06.2004, 20:58

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32565051

ну я

Участник

Откуда: Москва

Сообщения: 1 270

Рейтинг: 0 / 0

Намекаю: SetOrdProp

...

Рейтинг:

0 / 0

17.06.2004, 11:57

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32565216

JibSkeart

Участник

Откуда: Из далекой галактики

Сообщения: 18 930

Рейтинг: 0 / 0

2АБВГДЭЮЯ
угу оговорился :)
^{ш

(';')

(V),(V),,}

Код: plaintext

JS

...

Рейтинг:

0 / 0

17.06.2004, 13:02

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32568325

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

Участник

Откуда: glubinka

Сообщения: 4 167

Рейтинг: 0 / 0

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

Участник

Откуда: Из далекой галактики

Сообщения: 18 930

Рейтинг: 0 / 0

2Lepsik
Хммм , а что он у меня кричал что нету такой проперти Color ...
хотя может я просто очепятался когда пробовал :)
^{ш

(';')

(V),(V),,}

Код: plaintext

JS

...

Рейтинг:

0 / 0

22.06.2004, 10:37

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32571011

JibSkeart

Участник

Откуда: Из далекой галактики

Сообщения: 18 930

Рейтинг: 0 / 0

ОдноглазыйНадо же.
Ребят попадаются очень даже башаковитые.
Очень интересно. Спасибо буду юзать.

Да несомнено , я бы просто не догодался бы так сделать :)
хотя как знать ...

...

Рейтинг:

0 / 0

22.06.2004, 10:38

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32578965

LAlex

Гость

У компонентов есть метод InheritsFrom, только пишется там все несколько навороченно:

if(Sender->InheritsFrom(__classid(TControl)))
{
.....
}

...

Рейтинг:

0 / 0

28.06.2004, 08:27

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32579028

JibSkeart

Участник

Откуда: Из далекой галактики

Сообщения: 18 930

Рейтинг: 0 / 0

2LAlex
Будем знать :)

^{ш

(';')

(V),(V),,}

Код: plaintext

JS

...

Рейтинг:

0 / 0

28.06.2004, 09:27

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32735207

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

Участник

Откуда: glubinka

Сообщения: 4 167

Рейтинг: 0 / 0

в отладчике смотреть надо.

...

Рейтинг:

0 / 0

13.10.2004, 22:35

| Ответить | Цитировать | Написать

Помогите с Дельфи на CBuilder перевести

#32737635

JibSkeart

Участник

Откуда: Из далекой галактики

Сообщения: 18 930

Рейтинг: 0 / 0

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

| Ответить | Цитировать | Написать

35 сообщений из 35, показаны все 2 страниц

все

Форумы / C++ [игнор отключен] [закрыт для гостей] / Помогите с Дельфи на CBuilder перевести

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?all=1&fid=57&tid=2034252]:	0ms
get settings:	8ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	67ms
get topic data:	12ms
get forum data:	3ms
get page messages:	63ms
get tp. blocked users:	2ms
others:	230ms

total:	403ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы