Последние записи

made in programmersforum 4

Интенсив по 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.

Изьян этого примера только в том что данные в массиве и чекбоксе идентичны, но я его даю чтоб показать общий случай привязки данных к компоненнтам, ибо на его основе легко сделать так чтоб в списке показывалось пояснение к тому что будет запускаться. Но это уже другая история.
Разберись с этим примером и попробуй.

тема на форуме