VPF::Почему работает неправильно? - Форум программистов

aktuba

Дата 10.1.2007, 18:14 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

VICTAR,

Цитата

после Button1.Name := 'Button3' эта кнопка уже не является Button1

Как так?

в таком случае, после

Код


  Button1.Name := 'Button3';
  Button2.Name := 'Button1';

Button2 должна указывать на Button3, а после

Код


  Button1.Name := 'Button2';
  Button2.Free;

должно все удаляться??? тоже не верно.

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

VICTAR

Дата 10.1.2007, 18:32 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

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

ок, давай так:
Изначально Button1=кнопка №1
Изначально Button2=кнопка №2

теперь:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Name := 'Button3'; //кнопка №1 становиться Button3 (на форме теперь нет кнопки Button1, любое обращение к Button1 например Button1.Caption:='123' вызовет ошибку (не веришь - проверь) )
  Button2.Name := 'Button1'; //кнопка №2 становиться Button1 (на форме теперь две кнопки Button3 и Button1) 
  Button1.Name := 'Button2'; //кнопка №2 опять становиться Button2  (на форме теперь две кнопки Button3 и Button2) 
//что мы получили: Button3 - это кнопка №1, со всеми ее свойствами
//Button2 - это кнопка №2, со всеми ее свойствами (т.е. она не изменилась)
  Button2.Free; //в итоге уничтожаем Button2(она же кнопка №2)
end

уф-ф. Надеюсь понятно

Это сообщение отредактировал(а) VICTAR - 10.1.2007, 18:36

Beltar

Дата 10.1.2007, 18:52 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 627
Регистрация: 11.1.2006

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

Попробуй создать на форме кнопки и присвоить одной из них имя уже существующей. Нифига не выйдет. Name это уникальное свойство, оно вроде как идентифицирует объект. Зачем тебе все это понадобилось? А что чем является лучше посмотри под отладчиком, для этого получи адреса кнопок. Оптимизатор действительно лучше отключить.

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы. smile

(с) я, хотя может и нет
Пищущий на C++ мужик. Даже если это мужик сидит в написанном на Delphi и жрущем паскалевскую библиотеку билдере.

Sunvas

Дата 10.1.2007, 18:55 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Ща попробую объяснить, только не знаю подберу ли нужные слова, чтобы меня поняли. smile

Вся эта катавасия происходит потому что есть описание объекта и имя объекта. Это по-сути две разные вещи, но Делфи в Desing time это объеденил в одно понятие, чтобы нам было легче. Поэтому и возникает путаница.
Присвоение имени объекту в run time имхо сделано только когда мы и сам объект создаем в run time
Приведу простой пример, где покажу, что имя объекту можно и не присваивать (оно будет пустым):

Код


var b:tbutton;
    i:word;
begin
for i:=0 to 10 do
begin
b:=tbutton.Create(self);
b.Parent:=form1;
b.Top:=i*30;
if i=5 then b.Name:='bb'; //<-для примера как обратиться к пятой кнопке.
end;

Теперь, если мы захотим обратиться к пятой кнопке, мы напишим:

Код


(findcomponent('bb') as tbutton).Caption:='button';

Из этого вывод, что объект может имени вообще не иметь:

Код


  Button1.Name := '';
  Button2.Name := '';

, а описание может не соответствовать имени.
Поэтому при обращении к объекту через его описание в проблеме автора Делфи ищет объект с таким же именем функцией findcomponent , и если не находит, то ничего не делает.

Это сообщение отредактировал(а) Sunvas - 10.1.2007, 19:00

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Magister Y0da

Дата 11.1.2007, 13:52 (ссылка)

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

Загрузка ...

Зелёненький

Профиль
Группа: Участник
Сообщений: 235
Регистрация: 30.11.2004

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

попробуй сделать вот так smile

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Name := 'Button3';
  Button2.Name := 'Button1';
  Button3.Name := 'Button2';
  Button2.Free;
end

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

VICTAR

Дата 11.1.2007, 14:00 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

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

Цитата(Magister Y0da @ 11.1.2007, 13:52

)

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

код Pascal/Delphi
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Name := 'Button3';
  Button2.Name := 'Button1';
  Button3.Name := 'Button2';
  Button2.Free;
end

Не откомпилируется, т.к. изначально на форме нет Button3.
Решить просто, только надо понять что требуется автору smile

Magister Y0da

Дата 11.1.2007, 14:21 (ссылка)

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

Загрузка ...

Зелёненький

Профиль
Группа: Участник
Сообщений: 235
Регистрация: 30.11.2004

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

ну... эээ.....
у нас ведь имя меняется с Button1 а Button3, а потом обратно
вроде так

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

aktuba

Дата 11.1.2007, 14:22 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

Magister Y0da, в исходном вопросе было указано, что на форме ДВЕ кнопки ( Button1 и Button2)...

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

Magister Y0da

Дата 11.1.2007, 15:02 (ссылка)

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

Загрузка ...

Зелёненький

Профиль
Группа: Участник
Сообщений: 235
Регистрация: 30.11.2004

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

Цитата

Решить просто, только надо понять что требуется автору

тогда не понимаю что ему от нас надо smile

Цитата

ок, давай так:
Изначально Button1=кнопка №1
Изначально Button2=кнопка №2

код Pascal/Delphi
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Name := 'Button3'; //кнопка №1 становиться Button3 (на форме теперь нет кнопки Button1, любое обращение к Button1 например Button1.Caption:='123' вызовет ошибку (не веришь - проверь) )
  Button2.Name := 'Button1'; //кнопка №2 становиться Button1 (на форме теперь две кнопки Button3 и Button1)
  Button1.Name := 'Button2'; //кнопка №2 опять становиться Button2  (на форме теперь две кнопки Button3 и Button2)
//что мы получили: Button3 - это кнопка №1, со всеми ее свойствами
//Button2 - это кнопка №2, со всеми ее свойствами (т.е. она не изменилась)
  Button2.Free; //в итоге уничтожаем Button2(она же кнопка №2)
end

уф-ф. Надеюсь понятно

блин теперь увидел Sorry

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

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