Приствоить тест 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]

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

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

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

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