Sender:TObject

[notHaker]

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

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

public
procedure ShowHint();

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

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

ShowHint - это процедура и она ничего не возвращает. надо бы функцию использовать...