VPF::Button1 := Button2; - Форум программистов

Гость_Vasya

Дата 6.10.2003, 18:36 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Привет!

Преположим, имеется:

Button1, Button2: TButton;

Надо сделать Button1 := Button2 так, чтоб Button1 перенял все свойства Button2. Как?

Спасибо!

December

Дата 6.10.2003, 19:56 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57

В Design-time - правый клик на баттоне - едит - копи (или контрол - копи), потом пасте.
В ран-тайм - не знаю.

--------------------

Для друзей с винграда - скидки на разработку сайтов

p0s0l

Дата 6.10.2003, 21:28 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Где-то давно видел код с применением потока, но там вроде не было ничего связанного с именами. А если с именами компонент ничего не делать, то выдаётся ошибка, что компонент с таким именем уже есть...
Поэтому пришлось идти немного в обход:

Код

procedure MakeAssign (Component1, Component2 : TComponent);
var
  ms : TMemoryStream;
  OldName1, OldName2 : string;
begin
  OldName1 := Component1.Name;
  OldName2 := Component2.Name;
  Component1.Name := '';
  ms := TMemoryStream.Create;
  ms.WriteComponent(Component1);
  ms.Seek(0, soFromBeginning);
  TComponent(Component2) := ms.ReadComponent(Component2);
  ms.Free;
  Component1.Name := OldName1;
  Component2.Name := OldName2;
end;

Может можно и легче...

Применять так:
MakeAssign (Button1, Button2); // Button2 возьмёт все свойства у Button1 (кроме Name)

--------------------

С уважением, г-н Посол.

var-alex

Дата 7.10.2003, 08:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 7.10.2003
Где: Коломна, MCK

Репутация: 1
Всего: 1

Хренью заниматетесь, товарищи. Все классы в DELPHI, начиная от TPersistent имеют метод assign, который и делает то, что вам нужно. Пишется

Код

Button2.assign(button1)

Гость_Vasya

Дата 7.10.2003, 08:48 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

2 var-alex

В случае Button - ов Assign не проходит.

var-alex

Дата 7.10.2003, 12:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 7.10.2003
Где: Коломна, MCK

Репутация: 1
Всего: 1

Цитата

2 var-alex

В случае Button - ов Assign не проходит.

Что говорит?? Исключение или просто не работает??

p0s0l

Дата 7.10.2003, 14:02 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

"Cannot assign TButton to TButton" или что-то в этом роде. Было бы так легко, и спрашивать бы не стали...

--------------------

С уважением, г-н Посол.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »