| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Запуск ЕХЕ-шника с параметром? [D5, Win95/98, NT4, Win2k]
IronHawk © (2002-12-01 02:52:00)Допустим у меня на форме есть куча PageControl-ов и мне надо чтоб открывался соответсвующий по команде в строке запуска
скажем так:
c:\>Project.exe -3
после выполнения прога должна запустится с активной вкладкой под номером 3 !
Как так реализовать?
Заранее спасибо...
IronHawk (2002-12-03 00:02:00) [1]
> Almaz © (02.12.02 00:44)
Спасибо большое!
Всё отлично работает!
Almaz (2002-12-02 00:44:00) [2]Например так:
procedure TForm1.FormCreate(Sender: TObject);
var
SelectPage: Integer;
begin
if (ParamCount > 0) and (ParamStr(1)[1] = "-") then
begin
SelectPage := StrToInt(Copy(ParamStr(1), 2, Length(ParamStr(1))));
if (PageControl1.PageCount >= SelectPage) and (SelectPage > 0) then
PageControl1.ActivePage := PageControl1.Pages[SelectPage - 1];
end;
end;
Удачи.
IronHawk (2002-12-01 15:52:00) [3]Главоное что все поняли что я хочу.
> Viktor Kushnir © (01.12.02 07:49)
Спасибо!
У кого ещё есть какие предложения?
Viktor Kushnir (2002-12-01 07:49:00) [4]А вообще для работы с параметрами запуска есть две процедуры:
Paramcount - возвращает колличество полученных параметров. всегда >= 1
ParamStr(I: Integer) :String; Возвращает I-ый параметр в виде строки.
ParamStr(0) = Application.exename
Для (2002-12-01 03:31:00) [5]кучи PageControl"ов не достаточноодного параметра в командной строке, чтобы установить нужную вкладку в нужном PageControl"е.
Для некоего PageControl"а, установка активной закладки не так cложна. Например в OnCreate формы пишем:
PageControl.ActivePage:=StrToInt(ParamStr(1));
с обязательной проверкой на существование того самого параметра в "строке запуска".
Но "минус" или "тире" - уже на вашей совести.
| |
