Pytanie dotyczy ListView1 i Edit

0

Jak zrobić aby po zaznaczeniu w ListView1 wybranej linii i kliknięciu na Button1 wczytało do?
edit1 , edit2 jeśli to jest możliwe:d

0

Bujakasha :-D a nie próbowałeś ListView1.Selected.Caption?

do postu ponizej

Selected ListViewa zwraca wartość TListItem, a selected tlistitema zwraca boolean, poza tym można również ListView1.Items[ListView1.ItemIndex].Caption

0

Edit1.Text := ListBox1.Items[ListBox1.ItemIndex] czy jakos tak..

ze jak selected jest typu boolean hehehe tym sprawdza sie czy dana linijka jest zaznaczona hehehe :-D

0

Żywcem z programu...

procedure TAutoCorrectForm.FlatSpeedButton2Click(Sender: TObject);
begin
 if ListView1.ItemIndex = -1 then Exit;
 Edit1.Text := ListView1.Selected.Caption;
 Edit1.SelectAll;
 Edit2.Text := ListView1.Selected.SubItems[0];
 Edit2.SelectAll;
 ListView1.DeleteSelected;
 Edit1.SetFocus;
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1