Скачать: CL | DM;

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;

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.039 c