Текущий архив: 2004.02.10;
Скачать: CL | DM;

Вниз

Очень стыдно задавать такое о Combobox-e   Найти похожие ветки 

← →
AlexeyITN   (2004-01-29 18:29) [0]

По ходу работы моей программы мне нужно временно делать невидимыми определённые строки в Combobox ...ну или делать их другим цветом...
вопрос, как?

---

← →
Sandman25 ©   (2004-01-29 18:55) [1]

Можно удалять Items[i].
Можно рисовать самому нужным цветом.

---

← →
easy ©   (2004-01-29 19:51) [2]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
ComboBox1: TComboBox;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure Button1Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
SL: TStringList;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
SL := TStringList.Create;
with ComboBox1 do begin
Style := csDropDownList;
Items.Delimiter := "|";
Items.DelimitedText := "

---

← →
easy ©   (2004-01-29 19:52) [3]

Items.DelimitedText := "мне|нужно|временно|делать|" +
"невидимыми|определённые|строки|в|Combobox";
ItemIndex := 4;
end;
Button1.Caption := "Сделать невидимой";
Button2.Caption := "Сделать видимой";

---

← →
AlexeyITN   (2004-01-29 20:09) [4]

Спасибо тебе easy ©

---

← →
AlexeyITN   (2004-01-30 02:04) [5]

Увы и ах... У меня стоит 4-ая делфя. У объекта ComboBox1 нет свойств Items.Delimiter(Items.DelimitedText)
И всё же как изменить цвет определённых строк...(на крайняк - невидимыми)?
удалять - топорно как то...

---

← →
Amoeba ©   (2004-01-30 16:52) [6]

Смотри

> Sandman25 © (29.01.04 18:55) [1]

---

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

Текущий архив: 2004.02.10;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.023 c