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

Приствоить тест ComboBox в OnChange   Найти похожие ветки 

← →
Lex-85   (2008-01-31 22:01) [0]

Столкнулся с такой проблемой в событии OnChange у ComboBox нужно проверить одно условие, и если оно выполняется то присвоить ComboBox.Text другое значение, независимо от того которое выбрал пользователь. Делаю так:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if <условие> then
ComboBox1.Text := "1"; // к примеру
end;

так вот всеравно ComboBox отображает то что выбрал пользователь в любом случаее

---

← →
Dennis I. Komarov ©   (2008-02-01 09:37) [1]

> [0] Lex-85   (31.01.08 22:01)

Значит <условие> = false

PS


> procedure TForm1.ComboBox1Change(Sender: TObject);
> begin
> if (TComboBox(Sender).Text <> "1") and <условие> then
> ComboBox1.Text := "1"; // к примеру
> end;


А то улетишь на кибер-самолете

---

← →
ComboBox   (2008-02-01 09:38) [2]

Попробуй такой вариант.

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;
const M_ChangeTExt = WM_USER + 1;
type
 TForm1 = class(TForm)
   ComboBox1: TComboBox;
   procedure ComboBox1Change(Sender: TObject);
 private
    procedure ChangeText(var Message: Tmessage); message M_ChangeTExt;
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.ChangeText(var Message: Tmessage);
begin
if combobox1.Text="<условие>" then  ComboBox1.Text := "1";
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
PostMessage(Self.Handle, M_ChangeTExt, 0, 0);
end;

end.

---

← →
Dennis I. Komarov ©   (2008-02-01 10:11) [3]

> Значит <условие> = false

Обманул

---

← →
Dennis I. Komarov ©   (2008-02-01 10:16) [4]

> [0] Lex-85   (31.01.08 22:01)


> если оно выполняется то присвоить ComboBox.Text другое значение,
> независимо от того которое выбрал пользователь

Другое значение есть в списке?

---

← →
Lex-85   (2008-02-01 12:06) [5]

Да другое значение есть.

---

← →
Dennis I. Komarov ©   (2008-02-01 12:15) [6]

> [5] Lex-85   (01.02.08 12:06)

ComboBox1.ItemIndex:=индекс "другого значения"

---

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

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



Память: 0.46 MB
Время: 0.016 c