Форум: "Основная";
Текущий архив: 2002.12.12;
Скачать: [xml.tar.bz2];
Вниз
Запуск ЕХЕ-шника с параметром? Найти похожие ветки
← →
IronHawk (2002-12-01 02:52) [0]Допустим у меня на форме есть куча PageControl-ов и мне надо чтоб открывался соответсвующий по команде в строке запуска
скажем так:
c:\>Project.exe -3
после выполнения прога должна запустится с активной вкладкой под номером 3 !
Как так реализовать?
Заранее спасибо...
← →
Для (2002-12-01 03:31) [1]кучи PageControl"ов не достаточно одного параметра в командной строке, чтобы установить нужную вкладку в нужном PageControl"е.
Для некоего PageControl"а, установка активной закладки не так cложна. Например в OnCreate формы пишем:
PageControl.ActivePage:=StrToInt(ParamStr(1));
с обязательной проверкой на существование того самого параметра в "строке запуска".
Но "минус" или "тире" - уже на вашей совести.
← →
Viktor Kushnir (2002-12-01 07:49) [2]А вообще для работы с параметрами запуска есть две процедуры:
Paramcount - возвращает колличество полученных параметров. всегда >= 1
ParamStr(I: Integer) :String; Возвращает I-ый параметр в виде строки.
ParamStr(0) = Application.exename
← →
IronHawk (2002-12-01 15:52) [3]Главоное что все поняли что я хочу.
> Viktor Kushnir © (01.12.02 07:49)
Спасибо!
У кого ещё есть какие предложения?
← →
Almaz (2002-12-02 00:44) [4]Например так:
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-03 00:02) [5]
> Almaz © (02.12.02 00:44)
Спасибо большое!
Всё отлично работает!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.12;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c
