Sender:TObject

[Superlotles]

Подскажите, почему если создать процедуру в Public и указать в скобках (Sender:TObject) то вот этот код не работает

public
procedure Shar(Sender:TObject);

procedure TForm1.Button1Click(Sender: TObject);
begin
Shar;
end;

procedure TForm1.Shar(Sender:Tobject);
begin
ShowMessage('666');
end;

[notHaker]

Дык ты объект, то матушке подпрограмме передай... И заработает... Ток зачем тебе зендер?

[Superlotles]

Чет не пол-ся, напишите код

[notHaker]

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

Чет не пол-ся, напишите код

Shar(form1); Чё тут писать то??

[Stilet]

Shar(nil); напиши. В товем случае этого хватит.

[notHaker]

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

Shar(nil); напиши. В товем случае этого хватит.

я вот всё задаюсь вопросом : А зачем ему это?

[Stilet]

notHaker

Ну так и спроси у него )
В данном случае это конечно бесполезный аргумент.

[Superlotles]

Да книгу Фленова читаю там задачка пишет надо поставить обязательно Sender:Tobject, а зачем ничо не сказал, поэтому и пытаюсь выяснить что это и с чем его едят

 public
  procedure ShowHint(Sender:Tobject);

procedure TForm1.ShowHint(Sender: Tobject);
begin
StatusBar1.SimpleText:=Application.Hint;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Application.OnHint:=ShowHint;//Здесь нет Form1 в скобках и работает,  а там не работала , почему? и почему надо писать Form1 а не TForm1

[Stilet]

Superlotles

Такие вещи как Sender ставятся в том случае если разработчик или точнее функция запрограммированы обрабатывать запросы некого объекта.
Когда ты описываешь обработчик события Sender там указывает на объект. который это событие получил.
Вообще сам объект вызывает функцию обработчик события передавая в нее указатель на себя чобы сказать твоей функции - "Это я ее вызвал"

В твоем же случае это... Скажем бесполезно. Никакой полезной нагрузки Sender у тебя не несет, ибо функция твоя в рамках одного класса работает, а точнее твоей формы.

[Superlotles]

Ну а почему здесь ошибку выдает если так сделать

public
procedure ShowHint();

procedure TForm1.ShowHint;
begin
StatusBar1.SimpleText:=Application. Hint;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Application.OnHint:=ShowHint;
end;