Кнопка в StringGrid

[Apollon61]

Есть две процедуры: Первая рисует кнопки и открывает текстовый файл, вторая обрабатывает клик по кнопки. Вот эти процедуры:

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
f : TStringList;
begin
f := TStringList.Create();
f.LoadFromFile('C:\1.txt');
for i:=1 to 4 do
with TBitBtn.Create(StringGrid1) do
begin
Caption:='Кнопка';
Parent:=StringGrid1;
BoundsRect:=StringGrid1.CellRect(1, i);
OnMouseUp:=BitBtn1MouseUp;
end;
end;

procedure TForm1.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ShowMessage(<Здесь информация о кнопки>)
end;

Вопрос: Как во второй процедуре по клику какой либо из кнопок выводилась информация из файла соответствующая данной кнопки .
Заранее спасибо




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

1) если Вы создали TStringList, так и очистить память надо
f.Free; или, лучше даже так: FreeAndNil(f);

2) не понял, а зачем Вы читали файл, если Вы дальше нигде его не использовали?

3) каким образом связаны кнопка и файл? Т.е. по нажатию какой кнопки какой файл надо прочитать?...

[Apollon61]

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

1) если Вы создали TStringList, так и очистить память надо
f.Free; или, лучше даже так: FreeAndNil(f);

2) не понял, а зачем Вы читали файл, если Вы дальше нигде его не использовали?

3) каким образом связаны кнопка и файл? Т.е. по нажатию какой кнопки какой файл надо прочитать?...

Вообщем нужно сделать следующее: после нажатия к примеру Кнопки находящейся в первой строке таблицы она выводила первую строку из файлы, при нажатии кнопки находящейся во второй строке она выводила вторую строку из файла и т.д.

[Stilet]

Предлагаю проапгрейдить класс кнопки

unit Unit1;

interface

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

type
  TButton =class(StdCtrls.TButton)
   private
    fileName:String;
  end;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(TButton(sender).fileName);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

with TButton.Create(self) do begin
 Caption:='Êíîïêà';
 Parent:=self;
 OnClick:=Button1Click;
 fileName:='C:\1.txt';
end;

with TButton.Create(self) do begin
 Caption:='Êíîïêà 2';
 Parent:=self;
 OnClick:=Button1Click;
 fileName:='C:\2.txt';
end;

end;

end.

идея понятна?

[Apollon61]

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

Предлагаю проапгрейдить класс кнопки

unit Unit1;

interface

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

type
  TButton =class(StdCtrls.TButton)
   private
    fileName:String;
  end;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(TButton(sender).fileName);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

with TButton.Create(self) do begin
 Caption:='Êíîïêà';
 Parent:=self;
 OnClick:=Button1Click;
 fileName:='C:\1.txt';
end;

with TButton.Create(self) do begin
 Caption:='Êíîïêà 2';
 Parent:=self;
 OnClick:=Button1Click;
 fileName:='C:\2.txt';
end;

end;

end.

идея понятна?

да идея понятна, но дело в том что у меня в текстовом файле могут добавляться строки и тем самым будут добавляться Кнопки....

[evg_m]

1. специально для программиста у кнопки Tbutton есть свойство Tag
2. в событии есть ссылка на объект источник (sender) (т. е. на нашу кнопку)

при создании добавляем

for i:=1 to 4 do
with TBitBtn.Create(StringGrid1) do
begin
Caption:='Кнопка';
Parent:=StringGrid1;
BoundsRect:=StringGrid1.CellRect(1, i);
OnMouseUp:=BitBtn1MouseUp;
Tag:=i;
end;

в событии используем

procedure TForm1.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
  showmessage( inttostr( (sender as TButton).tag  );
end;

[Serge_Bliznykov]

при создании кнопки прописывайте её номер в поле tag
потом, в обработчике событий читайте файл в TStringList и вытаскивайте нужную строчку


ДОБАВЛЕНО

evg_m, простите, не видел Ваш пост... поэтому предложил аналогичное решение!