Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.02.24;
Скачать: [xml.tar.bz2];

Вниз

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

Форум: "Начинающим";
Текущий архив: 2008.02.24;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.053 c
2-1201342202
Sairex
2008-01-26 13:10
2008.02.24
Склеивание несколько файлов в один


9-1165141128
DRUGOI ilya
2006-12-03 13:18
2008.02.24
человек и ODE


2-1201712790
Res
2008-01-30 20:06
2008.02.24
winsock


15-1200776972
Kostafey
2008-01-20 00:09
2008.02.24
С днем рождения ! 20 января


2-1201604770
Звоновский
2008-01-29 14:06
2008.02.24
Помогите считать текст из Static чужого окна





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский