создание кнопки

[Aleksandr]

Имеется ListViev с заполнеными строками. при нажатии на кнопку создаются рисунки или кнопки (количество рисунков равно количеству строк), каждый рисунок соответствует строке listviewa. При наведении на рисунок в richview выводится текст соответстующий строке listview.
Вот я создаю кнопки, но не получается чтобы количество кнопок равнялось количеству строк.

procedure TForm1.createButton1(offset: integer);
var Buttons: tButton;
begin
Buttons:= tButton.Create(form1);
Buttons.Parent := form1;
Buttons.Left:=10;
Buttons.Top := 33 * offset;
Buttons.Visible := true;
Buttons.Name := 'Buttons'+inttostr(offset);
Buttons.Caption := Buttons.Name;
end;
procedure TForm1.Button2Click(Sender: TObject);
 var i:byte;
const
x:integer = 3;
begin
for i := 0 to x do  begin
createButtons1(i);
end;
 end;

[phomm]

я может чего не понял, но количество кнопок будет равно 4 ( от 0 до 3), потому как вы 4 раза вызваете код создания кнопки. вызывайте его listview.items.count раз и всё по идее будет нормально

[Aleksandr]

Создаю кнопки, но имена кнопок везде соответствуют первой строке. А мне нужно чтобы каждая кнопка называлась по соответствующей ей строке. И еще вопрос как кнопкам задать хинт и обработать событие на клик

procedure TForm1.createbutton(offset: integer);
var Buttons: TButton;
    i:Integer;
begin
Buttons := TButton.Create(form1);
Buttons.Parent := form1;
Buttons.Left:=10;
Buttons.Top := 33 * offset;
Buttons.Visible := true;
Buttons.Name := 'Buttons'+inttostr(offset);
Buttons.Caption := ListView1.Items.item[i].Caption;

end;

procedure TForm1.Button2Click(Sender: TObject);
 var i:byte;
begin
for i := 0 to listview1.items.count-1 do  begin
createbutton(i);
end;
 end;

[ArtGrek]

И еще вопрос как кнопкам задать хинт

Buttons.ShowHint := True;
Buttons.Hint := 'my hint';

обработать событие на клик

Buttons.OnClick := MyButtunsClick;

procedure TForm1.MyButtunsClick(Sender :TObject);
begin
  ShowMessage(TButton(Sender).Name + 'najli');
end;

[phomm]

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

Создаю кнопки, но имена кнопок везде соответствуют первой строке.

procedure TForm1.createbutton(offset: integer);
var Buttons: TButton;
    i:Integer;
begin
...
Buttons.Top := 33 * offset;
...
Buttons.Name := 'Buttons'+inttostr(offset);
Buttons.Caption := ListView1.Items.item[i].Caption;
...
end;

procedure TForm1.Button2Click(Sender: TObject);
 var i:byte;
begin
for i := 0 to listview1.items.count-1 do  begin
createbutton(i);
end;
 end;

Вы передаете оффсет, его и выставляете для позиционирования кнопки, а вот имя берете из какой-то i , которая в лучшем случае = 0 , что соответствует 1 строке листвиюва, а в худшем будет Аксес Виолейшн!

i у Вас локальная , и Вы её никак не обрабатываете ! надо бы так :

procedure TForm1.createbutton(itemnum: integer);
var Buttons: TButton;

begin
...
Buttons.Top := 33 * itemnum;
...
Buttons.Name := 'Buttons'+inttostr(itemnum);
Buttons.Caption := ListView1.Items.item[itemnum].Caption;
...
end;

[Aleksandr]

Спасибо работает. А как сделать чтобы при нажатии на созданную кнопку в label выводило что нажата кнопка и имя

[phomm]

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

Buttons.OnClick := MyButtunsClick;

procedure TForm1.MyButtunsClick(Sender :TObject);
begin
  ShowMessage(TButton(Sender).Name + 'najli'); 
end;

где красное поставь, что именно тебе нужно, и поблагодари ArtGrek'a

[Aleksandr]

Я это видел но где ставить Buttons.OnClick := MyButtunsClick;
Все разобрался. Спасибо.