Последние записи
- Удаление папки с файлами
- Распечатка файла
- Преобразовать массив байт в вещественное число (single)
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
16th
Фев
Запустить выбранные адреса в checklistbox
Posted by Chas under Delphi
Stilet
на живом примере:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, CheckLst,
StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
CheckListBox1: TCheckListBox;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
// Заранее предусмотренный массив
const a:array[1..3] of string=('divan\divan.jpg','dom\dom.jpg','more\more.jpg');
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
// Наполняем листбокс из заранее предусмотренного массива
for i:=Low(a) to high(a) do
CheckListBox1.Items.Append(a);
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
//Проверяем, если данные прочеканы - запускаем
for i:=Low(a) to high(a) do
if CheckListBox1.Checked then
ShellExecute (Handle,'open',PChar(a), nil, nil, SW_SHOWNORMAL);
end;
end.
Изьян этого примера только в том что данные в массиве и чекбоксе идентичны, но я его даю чтоб показать общий случай привязки данных к компоненнтам, ибо на его основе легко сделать так чтоб в списке показывалось пояснение к тому что будет запускаться. Но это уже другая история.
Разберись с этим примером и попробуй.
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)