Как установить процедуру в onclick динамической кнопки?

[grafgrial]

Доброе время года друзья, есть вопрос. Работаю с делфи отвремени особо не изучая. Так что простите. Вопрос состоит в том что у меня есть INI файл с содержанием

[Buttons]
NumberName1=Кнопка1
Number1=ert.exe
NumberName2=Программа для определения точности
Number2=bin/wloer.exe
SizeW=220
SizeH=35
TopB=40
LeftB=220

А так же у меня создаются кнопки динамически сколько позиций в INI файле столько и кнопок

var
but: Array[1..7] of TButton;
IniF: TIniFile;

...
procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
IniF := TIniFile.Create(ExtractFilePath(ParamStr(0)) + '/bin/confile.inig'); //читаю ini
for i := 1 to Length(But) do
begin
  But[i] := TButton.Create(Self);
  But[i].Parent := Self;
  with IniF do begin
  But[i].top := Strtoint(iniF.ReadString('Buttons', 'TopB', ''))*i; //4 строки размеры кнопки и позиция
  But[i].Left:= Strtoint(iniF.ReadString('Buttons', 'LeftB', ''));
  But[i].Width := Strtoint(iniF.ReadString('Buttons', 'SizeW', ''));
  But[i].Height:= Strtoint(iniF.ReadString('Buttons', 'SizeH', ''));
  but[i].name:='Buttons'+inttostr(i);
  but[i].tag:=i;
  but[i].TabOrder:=i;
  param:=inttostr(i);
  But[i].OnClick := Butt_click;
  But[i].Caption := iniF.ReadString('Buttons', 'NumberName'+inttostr(i), '');
  end;
end;
end;

У меня проблема передать имя файла в процедуру Butt_click и чтобы при нажатии на кнопку файл открылся..
ЧТО Я ДЕЛАЮ НЕПРАВИЛЬНО. А это точно, что неправильно.
вот и процедура

procedure TForm1.Butt_click(Sender: TObject);
var st, names: string;
begin
if Sender is TButton then
begin
IniF := TIniFile.Create(ExtractFilePath(ParamStr(0)) + '/bin/confile.inig');
if FileExists(iniF.ReadString('Buttons', 'Number'+inttostr(TButton(Sender).Tag), '')) then
begin
Memo2.Lines.Add(TButton(Sender).Caption);
names:=iniF.ReadString('Buttons', 'Number'+inttostr(TButton(Sender).Tag), '');
ShellExecute(Form1.Handle, 'open', pchar(ExtractFilePath(ParamStr(0)) + names), nil, nil, SW_SHOWNORMAL);
 end
  else
  st:= iniF.ReadString('NameFile', 'Site', '');
  ShowMessage('файла нет ');
end;
end;

[evg_m]

А это точно, что неправильно.

непонято в чем проявляется НЕ ТАК.
----

Но можно и так
1. рядом с кнопками хранить и путь к файлу для ЭТОЙ кнопки

but: array [1..7] of record btn: Tbutton; f: TFileName; end;

2. при создании

for i:=1 to 7 do begin
 r:=TButton.Create(self);
 r.....//делаем кнопку
  r.top := Strtoint(iniF.ReadStringInteger('Buttons', 'TopB', 0))*i; //4 строки размеры кнопки и позиция
  r.Left:= iniF.ReadInteger('Buttons', 'LeftB', 0);
  r.Width := iniF.ReadInteger('Buttons', 'SizeW', '');
  r.Height:= iniF.ReadInteger('Buttons', 'SizeH', '');
 ...
 but[i].btn:=r; // запомнили саму кнопку
 but[i].f:=inif.ReadString(...); // и то самое имя файла из ini-файла
end;

3. и используем при "нажатии"

for i:=1 to 7 do begin
  if but[i].btn =sender then begin // нажата та самая 
    //что-то делаем c but[i].f //  тем самым файлом
    break; // дальше проверять бессмысленно
  end;
end;

[grafgrial]

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

непонято в чем проявляется НЕ ТАК.

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

Насчет ".ReadInteger" да тупанул, давно работал с delphi

Обязательно попробую ваш способ, позже отпишусь

[evg_m]

if FileExists(iniF.ReadString('Buttons', 'Number'+inttostr(TButton(Sender).Tag), '')) 
....
ShellExecute(Form1.Handle, 'open', pchar(ExtractFilePath(ParamStr(0)) + names), nil, nil, SW_SHOWNORMAL);

проверяется и открывается вообще говоря ДВА РАЗНЫХ файла.
проверка в ТЕКУЩЕЙ а открытие по АБСОЛЮТНОМУ (и не факт что совпадающему) пути.
читайте GetCurrentDir

[grafgrial]

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

проверяется и открывается вообще говоря ДВА РАЗНЫХ файла

Да не я там несколько часов пытался разными способами протолкнуть)))

Спасибо все отлично работает, лайкосик заслужен

вот если что код он работает у меня (delphi7) Может кто-то не додумается как все соединить

var
  Form1: TForm1;
  IniF: TIniFile;
  i: Integer;
  But: array [1..7] of record btn: Tbutton; f: TFileName; end;


procedure TForm1.Butt_click(Sender: TObject);
begin
for i:=1 to 7 do begin
  if but[i].btn =sender then begin
ShellExecute(Form1.Handle, 'open', pchar(but[i].f), nil, nil, SW_SHOWNORMAL);
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
W, H: Word;
jpg: TJPEGImage;
r:TButton;
begin
IniF := TIniFile.Create(ExtractFilePath(ParamStr(0)) + '\bin\confile.ini');
for i := 1 to Length(But) do
begin
  r:=TButton.Create(self);
  r.Parent:=self;
  with IniF do begin
  r.top := Strtoint(iniF.ReadString('Buttons', 'TopB', ''))*i;
  r.Left:= Strtoint(iniF.ReadString('Buttons', 'LeftB', ''));
  r.Width := Strtoint(iniF.ReadString('Buttons', 'SizeW', ''));
  r.Height:= Strtoint(iniF.ReadString('Buttons', 'SizeH', ''));
  r.name:='buttons'+inttostr(i);
  r.tag:=i;
  r.TabOrder:=i;
  r.Caption := iniF.ReadString('Buttons', 'NumberName'+inttostr(i), '');
  r.OnClick := Butt_click;
  but[i].btn:=r;
  but[i].f:=ExtractFilePath(ParamStr(0)) +'drivers\'+(iniF.ReadString('Buttons', 'Number'+inttostr(i), ''));
  end;
end;
end;