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

Запуск ЕХЕ-шника с параметром?   Найти похожие ветки 

← →
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 вся ветка

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



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