Главная страница
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.017 c
15-1191066703
TurboDelphi_Help
2007-09-29 15:51
2007.10.28
Что качать?


11-1174493166
Vladimir Kladov
2007-03-21 19:06
2007.10.28
Версия 2.55


15-1191134727
Lex123456
2007-09-30 10:45
2007.10.28
помогите решить задачу на Pascal.Срочно.


15-1191518953
Nic
2007-10-04 21:29
2007.10.28
Total Commander - иногда произвольно закрывается


1-1187007182
Dmitry_177
2007-08-13 16:13
2007.10.28
Куда сохранять настройки?