一个语句不会写~~~~~~ ( 积分: 0 )

  • 主题发起人 主题发起人 Nada
  • 开始时间 开始时间
N

Nada

Unregistered / Unconfirmed
GUEST, unregistred user!
在form1上放个listview1 vsReport样式的 然后3个Edit (listview1就3列)
想只要点击了一行 就把这样的内容显示在3个Edit里 分用完了 不好意思啊
大哥大姐帮帮忙啊
 
在form1上放个listview1 vsReport样式的 然后3个Edit (listview1就3列)
想只要点击了一行 就把这样的内容显示在3个Edit里 分用完了 不好意思啊
大哥大姐帮帮忙啊
 
你是想三个编辑框同时显示一个Listview项,
还是分别显示出来呀。
分别显示:
Edit1.text := Listview1.items[0];
....2.........................1
....3.........................2
 
要让用户点击选择了一行 然后显示那行的所有内容(假如那行有3格 第1格显示在edit1 第2行类推)
 
我用的是TComboBox。
procedure TForm1.ComboBox1Change(Sender: TObject);
var
i : integer;
TempString : string;
begin
TempString := ComboBox1.Text;
i := pos(' ',TempString);
Edit1.Text := copy(TempString,1,i-1);
TempString := Copy(TempString,i+1,Length(TempString));
i := pos(' ',TempString);
Edit2.Text := Copy(TempString,1,i-1);
Edit3.Text := Copy(TempString,i+1,Length(TempString));
end;
 
后退
顶部