БУТТоны...

[ZhekON]

Есть десять неактивных(enebled:=false) TSpeedButton'ов(SpeedButton0, SpeedButton1...SpeedButton9)... есть два TEdit'а .... в одном путь к файлу програмы, а во втором описание програмы, мне нужно чтобы можно было добавлять на событие нажатые кнопки (SpeedButton.Onclick) запуск програмы из TEdit'а... как это зделать?

[Jeni]

В модуле ShellAPI есть функция ShellExecute
Можно записать так (в простейшем виде):
ShellExecute(0, nil, PAnsiChar(Edit.Text), nil, nil, 1);

[Сильванович Михаил]

uses ShellAPI;
...
procedure RunIt(x: integer);
begin
 ShellExecute(0, nil, PAnsiChar((FindComponent('Edit'+IntToStr(x)) as TEdit).Text), nil, nil, 1);
end;

procedure Click(Sender: TOBject);
var
 x: string;
 y: byte;
begin
 with Sender as TSpeedButton do
 begin
  x:=(Sender as TSpeedButton).Name;
  y:=StrToInt(x[Length(x)]+'');
  RunIt(y);
 end;
end;
...
var i: integer;
...
for i:=0 to 9 do 
begin
 (FindComponent('SpeedButton'+IntToStr(i)) as TSpeedButton).OnClick:=Click;
end;

Ну, думаю, понятно...

[ZhekON]

С этим розобрался- ОГРОМНОЕ СПАСИБО!!!
НО возник вопрос: Как удалить процэдуру Click из Speedbutton.OnClick, так сказать очистить кнопку од реакцый?

[pu4koff]

OnClick := nil;

[ZhekON]

Я создал Objects в которых храню адреса програм... у меня получается при нажатии на любой из SpeedButton'ов открывается одна и та жэ програма... КАк прикрепить к каждой кнопке свой адрес к програме? И чтоб можно было потом например удалить адрес с одной кнопки(зделать её пустой) и все что находятся вышэ по индэксу опустились нижэ...
ВОбщем идэя как в ПРОВОДНИКЕ ВИНДОВС... только здесь используются SpeedButton'ы помогите ПЛИЗЗ!!

[Сильванович Михаил]

Создай строковой массив, или воспользуйся TStrings, да обращайся к
его элементам, ведь каждая кнопка имеет свое имя (лучше, если
'общее'+порядковый номер в цепи), следовательно отличать одну
кнопку от другой заставить прогу можно. => все будет как положено.
А чтобы сделать кнопку пустой в массиве элементу присваеваем пустую строку (''); в процедуре запуска ставим проверку на пустую строку,
чтобы лишний раз не вызывать ShellExecute.

[pu4koff]

Сообщение от ZhekON

Я создал Objects в которых храню адреса програм... у меня получается при нажатии на любой из SpeedButton'ов открывается одна и та жэ програма... КАк прикрепить к каждой кнопке свой адрес к програме? И чтоб можно было потом например удалить адрес с одной кнопки(зделать её пустой) и все что находятся вышэ по индэксу опустились нижэ...
ВОбщем идэя как в ПРОВОДНИКЕ ВИНДОВС... только здесь используются SpeedButton'ы помогите ПЛИЗЗ!!

Если ты хранишь в массиве адреса прог, то как вариант у SpeedButton в свойстве Tag напиши номер элемента в этом массиве и в OnClick запускаешь прогу номер Sender.Tag, ну а для удаления или OnClick := nil или Tag := -1 и в OnClick проверяешь, что Tag >= 0

[ZhekON]

Спасиба всем, ужэ получилось!
Ещё вопрос...
Как загрузить иконку програмы(к которой SpeedButton хранит адрес(путь)) на поверхность этого SpeedButton'а???

[Сильванович Михаил]

var
 index: word;
 fname: string;
 icon1: TIcon;
 bmp: TBitmap;
...
// index:=0;
 Icon1:=TIcon.Create;
 Icon1.Handle:=ExtractIcon(hInstance,PChar(fname),index);
 bmp:=TBitmap.Create;
 bmp.Width:=Icon1.Width;
 bmp.Height:=Icon1.Height;
 bmp.Canvas.Draw(0,0,Icon1);
 SpeedButton2.Glyph.Assign(bmp);
 bmp.Free;
 Icon1.Free;

З.Ы. Здесь в fname хранится адрес экзешника.