[OvoMan]

создаю динамически Image

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure TForm1.Button1Click(Sender: TObject); var  icon     :TIcon; begin   imag:=TImage.Create(self);   imag.Parent:=Form1.Panel1;   imag.Left:=10;   imag.Top:=10;   imag.AutoSize:=true;   imag.Picture.Icon:=icon;   imag.OnDblClick:=OpenLabel; //вот нажатие обрабатывается процедурой  end;   procedure TForm1.OpenLabel(Sender: TObject); begin  ShellExecute(handle, 'open', filename, nil, nil, SW_SHOWNORMAL); end;

так вот все работает, но проблема в том, что у меня будет как минимум 10 таких картинок, хотел чтобы для всех была одна функция, которая будет запускать файл, но для этого мне нужно как-то передать в функцию адрес файла, но я же присваиваю эту функцию
imag.OnDblClick
вобщем вопрос: как передать в процедуру или функцию дополнительный параметр с типом string

[v1s2222]

Ну я бы делал так.

Код:

1 2 3 4

... создаю каритнку...   imag.Tag := i; // где i - как раз разница между картинками (либо надо было делать массив картинок var a: array of TImage) // то бишь i - просто переменная.   inc(i); // i:=i+1;

Код:

1 2 3 4 5 6 7 8 9

...openLabel... begin   case TImage(Sender).Tag of     1: ShellExecute(handle, 'open', '1', nil, nil, SW_SHOWNORMAL);     2: ShellExecute(handle, 'open', '2', nil, nil, SW_SHOWNORMAL);     3: ShellExecute(handle, 'open', '3', nil, nil, SW_SHOWNORMAL);     else       ShellExecute(handle, 'open', '4', nil, nil, SW_SHOWNORMAL);   end;

Примерно как-то так.

[OvoMan]

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

[v1s2222]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

var   Form1: TForm1;     S: String;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var  icon     : TImage; begin   imag:=TImage.Create(self);   with imag do begin     Parent:=Form1.Panel1;     Left:=10;     Top:=10;     AutoSize:=true;     Picture.Icon:=icon;     OnDblClick:=OpenLabel;     S:='myfile.exe';   end; end;   procedure TForm1.OpenLabel(Sender: TObject); begin  ShellExecute(handle, 'open', s, nil, nil, SW_SHOWNORMAL); end;

[v1s2222]

Либо если несколько картинок создаешь:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

S: String;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var  icon     : <font color="Red">array[1..3] of </font>TImage;  i: integer; begin   for i:=1 to 3 do begin     imag<font color="Red">[i]</font>:=TImage.Create(self);     with imag<font color="Red">[i]</font> do begin       Parent:=Form1.Panel1;       Left:=10;       Top:=10;       AutoSize:=true;       Picture.Icon:=icon;       OnDblClick:=OpenLabel;       S:='myfile.exe' + <font color="Red">IntToStr(i)</font>; // изменяй здесь название файла     end; end;   procedure TForm1.OpenLabel(Sender: TObject); begin  ShellExecute(handle, 'open', s, nil, nil, SW_SHOWNORMAL); end;

[OvoMan]

видимо надо полностью описать ситуацию:
по нажатии кнопки я создаю на panel один новую иконку открываемого файла, и после этого я должен нажать на эту созданную иконку и запустить файл, то есть в любой момент времени я могу вызвать функцию запуска файла и должен туда передать путь
а у тебя получается

Код:

1 2 3 4 5 6 7 8 9 10 11

for i:=1 to 3 do begin    imag[i]:=TImage.Create(self);    with imag[i] do begin      Parent:=Form1.Panel1;      Left:=10;      Top:=10;      AutoSize:=true;      Picture.Icon:=icon;      OnDblClick:=OpenLabel;      S:='myfile.exe' + IntToStr(i); // изменяй здесь название файла    end;

что всегда в S будет адрес последнего файла

[v1s2222]

Объясни как ты хочешь передавать путь? Где ты его узнаешь???

[OvoMan]

через opendialog открываю файл (.exe) достаю из него иконку ставлю ее на Panel, адрес беру из opendialog.fileame

[stil]

можно запоминать путь в массив а потом вытаскивать

[v1s2222]

Ну? В чем проблема?

Код:

1 2 3 4 5 6 7 8

var // глобальный   Form1: TForm1;       i: Integer=1;   s: array[1..5] of string; ... создаю картинку...   inc(i); // i:=i+1;

Код:

1 2 3

click по картинке begin   shellexecute(handle, 'open', <b><font color="Red">s[i-1]</font></b>...

Только перед этим забей массив s (пути к нужным файлам).

[OvoMan]

а как я узнаю какая иконка вызвала функцию?

[stil]

могу предложить немного по другому

Код:

1 2 3 4 5 6 7 8 9 10 11

var   A: array of PAnsiChar; procedure TForm1.Button1Click(Sender: TObject); ...   SetLength(A,Length(A)+1);   imag.Tag:=Length(A);   A[Length(A)-1]:='путь'; procedure TForm1.OpenLabel(Sender: TObject); begin  ShellExecute(handle, 'open', A[TImage(Sender).tag-1], nil, nil, SW_SHOWNORMAL); end;

[OvoMan]

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

Код:

ну и при создании новой картинки ты увеличиваешь i а значит ты будешь открывать файл последней иконки

[OvoMan]

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

могу предложить немного по другому

Код:

во точно через tag, это идея спасибо попробую