Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ListBox изменение выделенного итема [D7, WinXP]

Baddelay © (2005-01-30 16:21:00)
Есть Lb, выделев нужный item его содержимое поподает в Edit, дам оно меняется, и нужно эти изменения сохранить. Как зделать чтобы оно сохранилось и итем неизменил своего индекса..

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

Baddelay (2005-01-31 02:05:00) [1]
ListBox1.items[ListBox1.ItemIndex]:=Edit1.Text;

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

ТехникПТО (2005-01-30 17:07:00) [2]
сделал?

ТехникПТО (2005-01-30 16:31:00) [3]
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.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »