Jak wykonać jakąś operację po wybraniu np. pierwszego elemntu z listview?
Jak zwiększać rozmiar ikon w listview?
Jak wstawić tekst do memo tyle razy ile jest wpisane w edicie?
0
0
procedure TForm1.ListBox1Click(Sender: TObject);
begin
if ListBox1.ItemIndex=0 then ShowMessage('Zaznaczono pierwszy element');
end;
-
Zmień ImageList na taki, który zawiera większe ikony, naczej się chyba nie da.
-
Chyba o to chodzi?
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
for i:=0 to StrToInt(Edit1.Text)-1 do
Memo1.Lines.Add('Jakiś tekst')
end;
Ewentualnie:
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
for i:=0 to StrToInt(Edit1.Text)-1 do
Memo1.SelText:='Jakiś tekst';
end;
0
Zdarzenie OnChange
procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
Change: TItemChange);
begin
If Item=ListView1.Items[0] Then ShowMessage('Hurra');
end;