как получить объект формы по сендеру

[maloun]

в собитии онклик
по сендеру вычисляю форму
sender - кнопка
sender.parent - форма кнопки
TForm(Tbutton(sender).Parent)
у формы кнопки есть и другие объекты...
можно обратиться к объекту с этой формы ?

[Пепел Феникса]

начнем с того что обычно Self это итак форма сама.
Self.Button1(или просто Button1 что равносильно)

[maloun]

if TEdit(TForm(Tbutton(sender).Parent) .ObjectMenuItem.Find('Edit1')).Text <>''

как-то так пытался, но кажется к MenuItem не передаётся объект
кажется это не то меню о котором я подумал(

тогда новое условие...
TForm1 и форма с которой сендр разные вещи
а процедура принимающая сендр у левого класса в юните с Form1

[_Engine_]

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

if TEdit(TForm(Tbutton(sender).Parent) .ObjectMenuItem.Find('Edit1')).Text <>''

Что это вы пытались сделать?

[maloun]

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

Что это вы пытались сделать?

мысль была в том, что у формы обязан быть список её объектов(компонентов)
к которым можно какнить обращаться,
нашёл процедуру find и думал, что она найдёт мне компонент с капченом,
который я ввёл('Edit1') на моей форме, но это вообще не то...

[_Engine_]

Вообще, ход мыслей верный, у формы есть методы для поиска дочерних "контролов".
посмотрите на Form.Controls / Form.ControlsCount
Можно в цикле проверить if Form1.Controls[i] is TEdit then ...

[maloun]

спасибо, сейчас найду

procedure Form1.onClick(sender:TObject);
var
  p:pointer;
  i:integer;
begin
  p:=Tbutton(sender).Parent;
  for i:=0 to TWinControl(p).ControlCount-1 do
  if TWinControl(p).Controls[i] is TEdit then
  if TEdit(TWinControl(p).Controls[i]).Name='Edit2' then
  TEdit(TWinControl(p).Controls[i]).Text:='ЫЫЫЫЫЫЫЫ нашёл';
end;

весь поиск

[_Engine_]

Молодец, тебе еще справкой научиться пользоваться, вообще цены не будет

[Gonzo]

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

procedure Form1.onClick(sender:TObject);
...
end;

весь поиск

Если известно имя компонента, то можно использовать метод FindComponent.
IMHO - компактней

var pControl: Pointer;
begin
 pControl:=(Sender as TButton).Parent.FindComponent('Edit1');
 if pControl<>nil then
  TEdit(pControl).Text:='Component is found!';
end;

[Stilet]

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