Вызов процедуры OnClick из модуля без формы - Delphi - Ответ 10269426

procedure TForm1.ButClearRowClick(Sender: TObject);
var
  I : Integer;
  Z : byte;
begin
    Z:=0;
    for I := 1 to FGrid.RowCount-1 do
    begin
      If ChIn[I]=1 then
      begin
          ChIn[I]:=0;
          DeleteARow(FGrid, I);
          Z :=1;
      end;
    end;
    ChIn[0]:= 0;
    SetLength(ChIn,FGrid.RowCount);
    if Z=1 then
    begin
      If (High(ChIn)>0) then FGrid.Row := 1
      else FGrid.Row := 0;
      FGrid.Repaint;
    end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  openDialog : TOpenDialog;    // Open dialog variable
  i, z: Integer;
  c : byte;
  sz64 : Int64;
  Fname : String;
begin
   //form2 := TForm2.Create(Application);
   //form2.showmodal;
    openDialog := TOpenDialog.Create(self);
    openDialog.InitialDir := GetCurrentDir;
    openDialog.Options := [ofAllowMultiSelect];
    if not openDialog.Execute
    then ShowMessage('Open file was cancelled')
    else
    begin
      For I := 0 to openDialog.Files.Count-1 do
      Begin
         c := 0;
         if FGrid.RowCount=1 then
         Begin
            FGrid.RowCount := FGrid.RowCount+1;
            FGrid.FixedRows := 1;
            SetLength(ChIn,FGrid.RowCount);
            ChIn[FGrid.RowCount-1]:=0;
            FGrid.Cells[1,FGrid.RowCount-1] := openDialog.Files[i];
            FName := openDialog.Files[i];
            GetBFileSize(FName, sz64);
            FGrid.Cells[2,FGrid.RowCount-1] := IntToStr(sz64 div 1024);
            FGrid.Cells[3,FGrid.RowCount-1] := DateToStr(FileDateToDateTime(FileAge(FName)));
         End
         else
         Begin
            For Z := 1 to FGrid.RowCount-1 do
            Begin
              if openDialog.Files[i]=FGrid.Cells[1,Z] then c := 1;
            End;
            if c = 0 then
            Begin
                FGrid.RowCount := FGrid.RowCount+1;
                FGrid.FixedRows := 1;
                SetLength(ChIn,FGrid.RowCount);
                ChIn[FGrid.RowCount-1]:=0;
                FGrid.Cells[1,FGrid.RowCount-1] := openDialog.Files[i];
                FName := openDialog.Files[i];
                GetBFileSize(FName, sz64);
                FGrid.Cells[2,FGrid.RowCount-1] := IntToStr(sz64 div 1024);
                FGrid.Cells[3,FGrid.RowCount-1] := DateToStr(FileDateToDateTime(FileAge(FName)));
            End;
         End;
      End;
    end;
    openDialog.Free;
end;
 
procedure TForm1.FGridKeyPress(Sender: TObject; var Key: Char);
var
  Z, I : Integer;
begin
   if (key=#32) then
   Begin
      Z := FGrid.Selection.Bottom - FGrid.Selection.Top + 1;
      for I := 1 to Z do
      begin
          if ChIn[FGrid.Selection.Top+I-1] = 1 then
          begin
            ChIn[FGrid.Selection.Top+I-1] := 0;
            ChIn[0] :=0;
          end
          else ChIn[FGrid.Selection.Top+I-1] := 1;
      end;
      if (FGrid.Selection.Bottom +1) > (FGrid.RowCount -1) then  FGrid.Row := 1
      else FGrid.Row := FGrid.Selection.Bottom +1;
      FGrid.Repaint;
   End;
   if (key=#45) then Button1.Click;
   if (key=#46) then Form1.ButClearRowClick(FGrid);
end;