Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.10.28;
Скачать: 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 вся ветка

Текущий архив: 2007.10.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
2-1191324437
Mariya
2007-10-02 15:27
2007.10.28
Создание кнопки программно


2-1191383815
Alex_Y
2007-10-03 07:56
2007.10.28
GetTextExtentPoint


2-1191689278
Nikfel
2007-10-06 20:47
2007.10.28
Над каким элементом в списке курсор.


15-1191151459
tesseract
2007-09-30 15:24
2007.10.28
Клавиатура для программиста.


4-1177292492
Cj
2007-04-23 05:41
2007.10.28
Раскрытие процесса