N Nada Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-10 #1 在form1上放个listview1 vsReport样式的 然后3个Edit (listview1就3列) 想只要点击了一行 就把这样的内容显示在3个Edit里 分用完了 不好意思啊 大哥大姐帮帮忙啊
在form1上放个listview1 vsReport样式的 然后3个Edit (listview1就3列) 想只要点击了一行 就把这样的内容显示在3个Edit里 分用完了 不好意思啊 大哥大姐帮帮忙啊
N Nada Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-10 #2 在form1上放个listview1 vsReport样式的 然后3个Edit (listview1就3列) 想只要点击了一行 就把这样的内容显示在3个Edit里 分用完了 不好意思啊 大哥大姐帮帮忙啊
在form1上放个listview1 vsReport样式的 然后3个Edit (listview1就3列) 想只要点击了一行 就把这样的内容显示在3个Edit里 分用完了 不好意思啊 大哥大姐帮帮忙啊
引 引力 Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-10 #3 你是想三个编辑框同时显示一个Listview项, 还是分别显示出来呀。 分别显示: Edit1.text := Listview1.items[0]; ....2.........................1 ....3.........................2
你是想三个编辑框同时显示一个Listview项, 还是分别显示出来呀。 分别显示: Edit1.text := Listview1.items[0]; ....2.........................1 ....3.........................2
N Nada Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-10 #4 要让用户点击选择了一行 然后显示那行的所有内容(假如那行有3格 第1格显示在edit1 第2行类推)
引 引力 Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-11 #5 我用的是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;
我用的是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;