VPF::BeforeSelect для ComboBox - Форум программистов

Keeper89

Дата 16.12.2009, 12:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Доброго времени суток!

При изменении значения вып. списка необходимо запоминать предыдущий выбранный элемент. Как можно это сделать?
Событие OnSelect, как известно, возникает уже после выбора.

Это сообщение отредактировал(а) Keeper89 - 16.12.2009, 12:47

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Teleport

Дата 16.12.2009, 13:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 5.7.2008
Где: Прибалтика

Репутация: 3
Всего: 6

2 Keeper89 - на ум приходит такое решение:

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    CB: TComboBox;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure CBChange(Sender: TObject);
  private
  my_bufer: array [0..1] of string;  //сюда запоминаем значения CB
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CBChange(Sender: TObject);
begin
 my_bufer[1]:= my_bufer[0]; //сюда поместили предыдущее значение
 my_bufer[0]:= CB.Text; //сюда запомнили только что выбранное значение
 //вывод в Label - для контроля
 Label1.Caption:= my_bufer[1];

end;

procedure TForm1.FormCreate(Sender: TObject);
var
 i: integer;
begin
 //заполняем строками
 for i := 0 to 6 do
   CB.Items.Add('Строка ' + IntToStr(i));
 my_bufer[0]:= CB.Text; //запоминаем текст в CB
end;

end.

--------------------

Keeper89

Дата 16.12.2009, 14:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Teleport, я думаю что можно просто записывать ItemIndex в Tag.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Teleport

Дата 16.12.2009, 14:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 5.7.2008
Где: Прибалтика

Репутация: 3
Всего: 6

Ну да, тоже метод.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »