Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.12.2012, 18:11   #1
Sashka_BezDelnik
Пользователь
 
Регистрация: 15.12.2011
Сообщений: 26
По умолчанию Создание процедуры

Ребят помогите! есть следующий код

procedure TForm2.ListBox1Click(Sender: TObject);
var
s:string;
begin
if label5.Caption='' then
begin
s:= listbox1.Items[listbox1.ItemIndex];

label5.Caption:=ExtractFileName(s);
end
else
label5.Caption:='';
s:= listbox1.Items[listbox1.ItemIndex];
label5.Caption:=ExtractFileName(s);

end;


procedure TForm2.ListBox1DblClick(Sender: TObject);
var
x, y: integer;
i, j: integer;
r, g, b: integer;
s,s1:string;
begin
if
(edit1.Text = '') and (edit2.Text = '')
then
begin
edit1.Text:=listbox1.Items[listbox1.ItemIndex];
s:=edit1.Text;
s1:=listbox1.Items[listbox1.ItemIndex];
edit2.Text:=ExtractFileExt(s);
end
else
edit1.Clear;
edit2.Clear;
edit1.Text:=listbox1.Items[listbox1.ItemIndex];
s:=edit1.Text;
edit2.Text:=ExtractFileExt(s);

if (edit2.Text='.jpg') or (edit2.Text='JPG')
then
form9.Image1.Picture.LoadFromFile(s 1);


form9.Width:=Form9.Image1.Width;
form9.Height:= Form9.Image1.Height;
form9.show;

end;



мой вопрос следующий, как мне создать функцию создания listbox-ов чтобы в них добавлялись сразу написанные процедуры, т.е. я нажатием кнопки создаю например 3 листбокса и у них есть уже эти процедуры
Заранее спасибо, если хоть как-то меня направите)

Последний раз редактировалось Sashka_BezDelnik; 29.12.2012 в 18:28.
Sashka_BezDelnik вне форума Ответить с цитированием
Старый 29.12.2012, 19:50   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Код:
with TListBox.Create(self) do begin
 parent:=self;
 OnDblClick:=ListBox1DblClick;
 OnClick:=ListBox1Click;
 Остальные свойства по вкусу.
 И вызов метода отображения типа Show
end;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 29.12.2012, 21:33   #3
Sashka_BezDelnik
Пользователь
 
Регистрация: 15.12.2011
Сообщений: 26
По умолчанию

Спасибо!Очень помог!)
Sashka_BezDelnik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создание форм из процедуры DIMASIKXXX32 Общие вопросы Delphi 14 15.11.2012 15:29
Создание процедуры rad22 Microsoft Office Excel 5 18.12.2011 16:46
Создание процедуры в ms access xanderg Фриланс 6 04.10.2011 09:21
Создание процедуры на SQL Skyline20000 SQL, базы данных 0 31.03.2009 16:57
Создание своей процедуры kuzmich Общие вопросы Delphi 7 12.01.2009 15:17