ListBox изменение выделенного итема

← →
Baddelay (2005-01-30 16:21) [0]

Есть Lb, выделев нужный item его содержимое поподает в Edit, дам оно меняется, и нужно эти изменения сохранить. Как зделать чтобы оно сохранилось и итем неизменил своего индекса..

Наверняка есть это в хелпе, но у меня сжатая версия компилятора и там этих хелпов нет, мож кто даст..

← →
ТехникПТО © (2005-01-30 16:31) [1]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ListBox1Exit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
i:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.ListBox1.Items.Add(Form1.Edit1.Text);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
Form1.Edit1.Text:=Form1.ListBox1.items[Form1.ListBox1.ItemIndex];
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Key= VK_RETURN Then Begin
Form1.ListBox1.ItemIndex:=i;
Form1.ListBox1.items[Form1.ListBox1.ItemIndex]:=Form1.Edit1.Text;
end;
end;

procedure TForm1.ListBox1Exit(Sender: TObject);
begin
i:=Form1.ListBox1.ItemIndex;
end;

end.

← →
ТехникПТО © (2005-01-30 17:07) [2]

сделал?

← →
Baddelay (2005-01-31 02:05) [3]

ListBox1.items[ListBox1.ItemIndex]:=Edit1.Text;

блин ну как я сам то недогадался... почти также делал...
Спасибо огромное... Сразу видно ты тоже щас этим занимаешся..

ListBox изменение выделенного итема Найти похожие ветки