Действие проседуры TForm1.Button2Click(Sender: TObject); на что распространяется?

[vedro-compota]

Terran, а зачем такая форма записи:

extraproc.keypress(key);

модуль extraproc уже ведь подключен:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, func , extraproc ;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
  
    procedure Button2Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);

  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
Form1: TForm1;

implementation

{$R *.dfm}



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

procedure TForm1.Button2Click(Sender: TObject);
var zap: telement;
    p:pelement;
    uk: pelement;
    i,n,b,ot  : integer;
begin
  ot:=0;
  label5.Caption:='';
  label3.Caption:='';
  n:=0;
  uk:=nil;
  while n<=stringgrid1.colcount-1 do // формирую список
  begin
    if length(stringgrid1.Cells[n,0])<>0 then
    begin
      new(p);
      p^.ukazatel:=uk;
      uk:=p;
      p^.infa:=strtoint(stringgrid1.cells[n,0]);
      n:=n+1;
    end
    else
    n:=n+1;
  end;
  b:=strtoint(edit2.text);  // узнаю какой элемент меня интересует
  ot:=fg(uk, b);
  label3.Caption:=inttostr(ot); // ответ ( вывожу на форму)
  repeat  // выводим на форму очередь в обратном порядке))
    label5.Caption:=label5.Caption+inttostr(uk^.infa)+' ';
    uk:=uk^.ukazatel;
  until uk= nil;
  label5.Caption:=label5.Caption;

end;









procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
extraproc.keypress(key);
end;
end.

[vedro-compota]

я пробовал- и процедура работала. вот пример. разве он не аналогичен
основной модуль:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, proc;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
proce(key);
end;

end.

дополнительный:

unit proc;


interface
uses Dialogs;
procedure proce  (var  key : char );

implementation
procedure proce (var  key : char ) ;
begin
  if not (Key in [#8, '0'..'9']) then
  begin
    ShowMessage('ПОжалуйста, укажите целое число');
    Key := #0;
  end;
end;
end.

(прикладываю архив)

[vedro-compota]

Человек_Борща )) формы в исходнике были )) ведь Terran сделал)) правда я опять ничего не понял, но формы там были ))

[Terran]

Terran, а зачем такая форма записи:

Это для того, чтобы обратиться именно к этой процедуре, которая находится в Вашем модуле extraproc. Т.к. в стандартном модуле Controls есть точно такая же процедура.
P.S. Лучше поменять имя Вашей процедуре, чтобы оно не совпадало с именем процедуры находящейся в модуле Controls.

[vedro-compota]

с другим именем работает ))
-------------------------------------
спасибо, Terran 0)))