Обратиться к самому объекту (with ... do)

[northener]

Сообщение от DIONISKA

К ответу northener можно ещё добавить

А нужно ли?

[macomics]

Сообщение от northener

А тут уже работают правила перечисления/вложения.
Да если в конструкции with .. do перечислено более одного объекта, то способ Arigato не справится. Всегда будет браться значение ссылки одного и того же объекта. Первого или последнего не могу сходу сообразить.
Но со вложенными with .. do проблем не будет.

Так смысл создавать зарезервированное слово, которое обеспечивает доступ только к одному объекту из множества. Решать задачу надо над всеми вариантами использования конструкции, а не только для некоторого (частичного) множества.

[DIONISKA]

Сообщение от northener

А нужно ли?

Ну а вдруг человек заинтересуется и почитает современные книжки/стандарты по языку :D И сразу добрая половина вопросов отпадёт, на том-же официальном сайте embarcadero был даже пример именно по хэлперам, где примерно подобное что ТС нужно и реализуется

[northener]

Сообщение от macomics

Так смысл создавать зарезервированное слово, которое обеспечивает доступ только к одному объекту из множества. Решать задачу надо над всеми вариантами использования конструкции, а не только для некоторого (частичного) множества.

Не надо создавать то, что никому не нужно. У ТС был конкретный вопрос и ответ на него он получил. Пригодится он ему или нет не наше дело.
У меня вот возникла впервые эта тема, когда из разных мест программы по велению оператора нужно было послать некую команду внешнему железу. Посылать команду сразу непосредственно на железо нельзя. Нужна была очередь команд. Команду создать и заполнить её поля с помощью with .. do я мог, а вот чтобы её включить в список мне нужна была переменная. И не то чтобы это очень мне досаждало, но...

[northener]

Сообщение от DIONISKA

Ну а вдруг человек заинтересуется и почитает современные книжки/стандарты по языку :D И сразу добрая половина вопросов отпадёт, на том-же официальном сайте embarcadero был даже пример именно по хэлперам, где примерно подобное что ТС нужно и реализуется

А вы уверены, что это что-то подобное?

[DIONISKA]

Сообщение от northener

А вы уверены, что это что-то подобное?

Что-то подобное это примеры в онлайн справке по delphi, конкретно добавление для стандартного класса полей/функций и тп с помощью class/record helpers. Что до хэлперов, то это инструмент и использовать его или например переопределение класса или любой другой метод это уже на усмотрение.
Ведь с чего всё началось? ТС нужно получить объект/ссылку на tbutton внутри конструкции with..do не присваивая его никакой переменной.

[northener]

Сообщение от DIONISKA

Ведь с чего всё началось? ТС нужно получить объект/ссылку на tbutton внутри конструкции with..do не присваивая его никакой переменной.

Прочитайте ещё раз вопрос автора. Но более внимательно.

[DIONISKA]

Сообщение от northener

Прочитайте ещё раз вопрос автора. Но более внимательно.

Прочитал. Или мы друг друга не понимаем, или телега не едет(с)
Это понятно что ТС хочет стандартными средствами языка получить tbutton/ссылку на неё внутри конструкций with ... do, чтобы использовать внутри процедуры типа

 someprocedure(волшебное_слово)

но то что хочет ТС (а возможно и все мы) не реализовано от слова совсем.
Чтобы решить проблему и получить объект/ссылку на объект есть разные выходы:
- добавить поле/функцию в класс (в конкретный класс tbutton, родительский н-р twincontrol, наследника) которое вернёт искомое. Можно использовать свой собственный класс, наследника класса, использовать переопределение или как предложил я хэлперы.
- перечислять элементы родительского контейнера (н-р components[] главной формы или панели) и искать нужную кнопку. При создании компонента/назначении родителя объект всё-же сохраняется в массиве, который находится на стороне родителя (FComponents: TList<TComponent> Но это справедливо для tbutton и в целом компонентов внутри контейнера.
- возня c winapi и прочие извращения (этот вариант серьезно даже не стоит рассматривать)
- пересмотреть свои взгляды и начать использовать дженерики, переменные, контейнеры и тп
- и т.п.
Что в моём предложении использовать class helpers не так?
И к слову если создать хэлпер для Tobject примерно такого вида:

  pers = class helper for TObject
    function this:TObject;
  end;
//...
{ pers }
function pers.this: TObject;
begin
  Result:=Self;
end;

То к объектам, которые наследуют от TObject, можно будет обращаться так:

   with TButton.Create(form1) do
    begin
      Parent:=Form1;
      Caption:='Fuckin'' AwsomeButton ' +this.ClassName;
      Left:=0;
      top:=0;
      Width:=150;
      Height:=40;
      someprocedure(this as TButton);
    end;

viva de la ООП~ Жаль что в этом случае что "this" всегда будет возвращать объект как TObject, но всегда можно указать класс явно, сделать перезагрузку, использовать указатели или по-другому всячески себе усложнять жизнь.

[Arigato]

Сообщение от northener

Но в таком случае ответ на вопрос ТС

Да, но в случае класса TButton это не прокатит, там-то такого свойства нет.

Сообщение от northener

Но со вложенными with .. do проблем не будет.

Будет, если потребуется из вложенного with обратиться к объекту на уровень выше.

[northener]

Сообщение от Arigato

Да, но в случае класса TButton это не прокатит, там-то такого свойства нет.

Ах да. Был невнимателен, думал о том что у меня раньше болело, а не о болячке ТС.
Но если ТС хочет кнопки создавать динамически, то что мешает написать простую обертку/наследник TButton, в который включить это свойство?

Сообщение от Arigato

Будет, если потребуется из вложенного with обратиться к объекту на уровень выше.

Ну на первый раз достаточно хотя работы внутри одного уровня. И то плюс.