Форум: "Основная";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
ВнизTCheckListBox и TMemo Найти похожие ветки
← →
uhhax (2003-08-20 02:04) [0]Народ, помогите с вопросом, трабла вот в чем:
У меня есть на форме CheckListBox, в нем несколько строк (около 20), есть так же Memo1.
Как мне при нажатии на кнопку (Button1) зделать так, чтобы выбранные строки из CheckListBox1 отобразились в Memo1 ?
Заранее спасибо.
← →
UnZero (2003-08-20 02:34) [1]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, CheckLst;
type
TForm1 = class(TForm)
CheckListBox1: TCheckListBox;
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
Form1.Memo1.Lines.Clear;
for i:=0 to Form1.CheckListBox1.Items.Count-1 do
begin
if Form1.CheckListBox1.Checked[i] then
Form1.Memo1.Lines.Add(Form1.CheckListBox1.Items.Strings[i]);
end;
end;
end.
← →
UnZero (2003-08-20 02:35) [2]Написано на D6, но Button1Click - то, что надо...
← →
Marser (2003-08-20 02:52) [3]procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to CheckListBox1.items.count-1 do
if CheckListBox1.checked[i] then
memo1.Lines.Add(CheckListBox1.Items[i]);
end;
← →
Ups (2003-08-20 02:57) [4]Ты смотри, а Marser соригинальничал...
вот удиви-и-ил...
← →
Marser (2003-08-20 03:04) [5]
> Ups (20.08.03 02:57) [4]
> Ты смотри, а Marser соригинальничал...
> вот удиви-и-ил...
Во-первых, оптимизация кода(Сокращено в полтора раза), а во-вторых, когда выходил в онлайн, не знал, что среди ночи советчики найдутся...
> UnZero
Для показа подобных аспектов не обязательно публиковать весь юнит, достаточно одного обработчика.
← →
Ups (2003-08-20 03:11) [6]2 Marser © (20.08.03 03:04) [5]
Сергей, без обид...
советов тебе никто и не думал давать...
>Для показа подобных аспектов не обязательно публиковать весь юнит, достаточно одного обработчика.
ну а с этим... как не согласиться....
← →
uhhax (2003-08-20 03:47) [7]Пасиба народ, помогли!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c