Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Sender [D7, XP]

Zheksonz © (2013-08-23 19:10:00)
Добрый день!
Почему из своей процедуры, прописанной в классе TFormне запускается процедура следующего вида:
rb4Enter(Sender);?

при этом использование из любой TForm_овской функции или процедуры этот же формат вполне перевариваем.

rb4: TRadioButton;

И какие имеются варианты для решения этой задачки?

Styx (2013-08-25 23:38:00) [1]

> а разницы никакой

На самом деле "дуст" означает просто пыль и применимо к любому препарату, который используют в мелкоразмолотом виде. Вот, например:
http://dddm.ru/catalog/5026.html
Дуст ДДТ просто был в своё время популярен, поэтому по умолчанию он и подразумевается.

умный-преумный (2013-08-25 23:20:00) [2]

> icWasya © (25.08.13 20:48) [14]

ну не скажи, разница есть. например, "отравиться дихлордифенилтрихлорметилметаном" звучит круче.
а почему нельзя сократить до пятихлордифенилметилметан?

icWasya (2013-08-25 20:48:00) [3]
>и вообще эти слова разной длины!
Ну это не показатель
Вот дихлордифенилтрихлорметилметани дуст. В первом слове на двадцать шесть букв больше - а разницы никакой.

Zheksonz (2013-08-23 22:52:00) [4]

> А если внимательно приглядеться то можно обнаружить, что
> и вторая буква тоже совпадает

А если ещё более внимательно присмотреться, то третья и четвёртая не совпадают и вообще эти слова разной длины!

Anatoly Podgoretsky (2013-08-23 22:18:00) [5]
> Германн (23.08.2013 21:57:11) [11]

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

Германн (2013-08-23 21:57:00) [6]
Это папаша Борланд виноват.
У него и Self и Sender начинаются с одной и той же буквы.
:)

Необычный Порошок (2013-08-23 20:20:00) [7]
Спасибо Rouse_, навёл на ошибку.

rb4Enter(Sender); // sender не объявлен говорит(((

Вот жалко, что компилятор умеет только говорить.
Умел бы он еще петь и плясать, то тоже наверное смог бы навести кое-кого на ошибку.

Zheksonz (2013-08-23 19:43:00) [8]

> Покажи обычную TForm_овскую процедуру

Спасибо Rouse_, навёл на ошибку.

ProgRAMmer Dimonych (2013-08-23 19:41:00) [9]
> [5] Zheksonz (23.08.13 19:36)

«Хто-та ўрот!» :) Нигде она не объявлена. Пора разобраться с синтаксисом языка и понять, что магии в Дельфийских сгенерированных процедурах никогда не было.

Rouse_ (2013-08-23 19:40:00) [10]

> Zheksonz (23.08.13 19:36) [5]
> он объявлен так же, как и при запуске его же из такой же
> TForm_овской процедуры,

Покажи обычную TForm_овскую процедуру

Необычный Порошок (2013-08-23 19:39:00) [11]
он не объявлен.

Zheksonz (2013-08-23 19:36:00) [12]

> Ну дык правильно говорит - разве он у тебя где-то объявлен?

он объявлен так же, как и при запуске его же из такой же TForm_овской процедуры, только созданной автоматически, например при создании кнопки.

Rouse_ (2013-08-23 19:31:00) [13]

> rb4Enter(Sender); // sender не объявлен говорит(((

Ну дык правильно говорит - разве он у тебя где-то объявлен?

Zheksonz (2013-08-23 19:27:00) [14]
хотя если этот блок внутри кнопки на форме, то без проблем всё запускается...

procedure drv4_start;в классе прописана

Zheksonz (2013-08-23 19:26:00) [15]
procedure TForm1.drv4_start; begin rb4.Checked := True; rb4Enter(Sender); // sender не объявлен говорит((( se4.Value := 100; btn1Click(Sender); // sender не объявлен говорит((( drv4_bool := True; // TRadioButton(FindComponent('rb' + IntToStr(tmp_drv))).SetFocus; end;

Sha (2013-08-23 19:18:00) [16]
проверил, у меня запускается

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »