With ... do и вызов функции

[Kronos913]

with TButton.Create do begin
  {настройка кнопки}
end;

И вот такой вопрос: мне внутри этого блока нужно вызвать процедуру, аргументом которой будет сама кнопка. Есть ли такая возможность?

[BDA]

Например:

bt := TButton.Create;
with bt do begin
  func(bt);
end;

[northener]

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

Есть ли такая возможность?

Нет. Без внешней переменной никак. Это очень печально, но разработчики компилятора о такой возможности не озаботились.

[Arigato]

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

разработчики компилятора о такой возможности не озаботились

Если речь идет о своем собственном классе, то о такой возможности можно позаботиться самостоятельно:

type
  TMyClass = class
    protected
      FTest: Integer;
      function GetThis: TMyClass;
    public
      property Test: Integer read FTest;
      property This: TMyClass read GetThis;
      constructor Create(A: Integer);
  end;

constructor TMyClass.Create(A: Integer);
begin
  inherited Create;
  FTest := A;
end;

function TMyClass.GetThis: TMyClass;
begin
  Result := Self; // вернем указатель на самого себя
end;

procedure ShowTest(MyClass: TMyClass);
begin
  ShowMessage(IntToStr(MyClass.Test));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TMyClass.Create(123) do begin
    ShowTest(This); // This - указатель на себя
  end;
end;

[DIONISKA]

Это же по сути тот-же самый вопрос что и этот >>?
Конструкция with ... do чисто косметическая, нужная для улучшения читаемости кода, в вашем случае если что-то гордить, то читаемость она только ухудшит.
Но если это не останавливаети и не хочется создавать локальные переменные и у вас IDE Rio и выше (10.3+), то можно делать так:

procedure Tmainform.btnclick(Sender: TObject);
var
  button:TButton absolute Sender;
begin
  ShowMessage('Button #'+button.Tag.ToString+' Clicked!');
end;

procedure Tmainform.FormCreate(Sender: TObject);
begin
  for var I:integer := 0 to 5 do
   begin
     //переменная button будет видима только в этом блоке!
     var button{:tbutton}:=tbutton.Create(self);
     with button do
      begin
       Parent:=self;
       Caption:='Я кнопка #'+i.ToString;
       OnClick:=mainform.btnclick;
       Left:=button.Width*i;
       Tag:=i;
      SomeProcedure(button);
      end;
   end;
end;

Или как вам советовали в той теме: Наследник класса, возрващающий self, использовать классхелперы и тп

[Arigato]

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

Это же по сути тот-же самый вопрос что и этот

Тоже помню, что отвечал на подобный вопрос, но тему сходу не нашел. Да, ТС странный человек, и вопросы странные задает, и повторяется, то есть ответы он не воспринимает...

[northener]

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

Если речь идет о своем собственном классе, то о такой возможности можно позаботиться самостоятельно:

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

Конструкция with ... do чисто косметическая, нужная для улучшения читаемости кода

И да и нет в обоих случаях.