Скачать: CL | DM;

Объявление переменной   Найти похожие ветки 

← →
Mariya   (2007-10-05 14:26) [0]

btn.OnClick:=ButtonClick1;
Procedure TForm1.ButtonClick1(Sender: TObject);
begin
 ShellExecute(handle, nil, "winword.exe", NiL, NiL, SW_SHOWNORMAL);
end;
Подскажите, как winword.exe объявить переменной и написать в программе, чтобы в ини файле можно было менять, например на Excel.

---

← →
Ping   (2007-10-05 14:32) [1]

WinWordStr: string;

ShellExecute(handle, nil, PChar(WinWordStr), NiL, NiL, SW_SHOWNORMAL);

---

← →
Mariya   (2007-10-05 15:24) [2]

Спасибо, но не поняла где теперь писать название программы, которая должна открыться в ини? а как правильно писать?

---

← →
Kolan ©   (2007-10-05 15:35) [3]

Имхо, ты не так придумала.

Надо так, имхо:
В ини есть секция
[Programs]
Prog1=Word
Prog2=Excel

А потомты читаешь эту секцию и для каждой строчки генеришь кнопку.

А обработчик им назначаешь 1 и то же всем кнопкам.

И вот чтобы в обработчике вызвать нужную прогу, тебе надо ассоциировать(связать) кнопку со строкой.

Я бы сделал так:
Сделал бы наследника кнопки:
TMyButton = class(TButtn)
private
 FProgram: string;
public
 property Program: string read FProgram write FProgram;
end;

А обработчик такой:

Procedure TForm1.ButtonClick1(Sender: TObject);
begin
 if Sender is TMyButton then
   ShellExecute(handle, nil, (Sender as TMyButton).Program, NiL, NiL, SW_SHOWNORMAL);
end;

---

← →
Kolan ©   (2007-10-05 15:37) [4]

И там где ты кнопки создаешь пиши:

Btn := TMyButton.Create(&#133);
Btn.Program := <Из ини>

---

← →
Mariya   (2007-10-05 15:41) [5]

Спасибо, большое, Вы очень доступно все объяснили, буду пробывать!!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c