[Norw]

Нужна помощь в создании виртуального тренажера по одному аппарату...
проблемы на данном этапе разработки:

1.Необходимо сделать так чтобы кнопка меняла свой цвет при нажатии(тобиш имела разные состояния связанные с цветом).

2.надо чтоб главная форма программы при запуске программы была невидима... если такое невозможно то как её переназначить.

3.необходимо органзовать систему защиты: пароль, разделение прав пользователя...

4. необходимо чтоб по нажатию кнопки запускалось тдельное приожение.


и просто хочу лучше разобраться с delphi

[Alexo]

Сообщение от Norw

Нужна помощь в создании виртуального тренажера по одному аппарату...
проблемы на данном этапе разработки:

1.Необходимо сделать так чтобы кнопка меняла свой цвет при нажатии(тобиш имела разные состояния связанные с цветом).

2.надо чтоб главная форма программы при запуске программы была невидима... если такое невозможно то как её переназначить.

3.необходимо органзовать систему защиты: пароль, разделение прав пользователя...

4. необходимо чтоб по нажатию кнопки запускалось тдельное приожение.


и просто хочу лучше разобраться с delphi

1. тебе нудна кнопка которая умеет менять цвет) точно не помню какая именно а дальше все просто lcbtn.color := clRed;
2. там где происходи инициализация приложения (*.dpr) добавить Application.ShowMainForm := False;
3. Тут куча способов и незная почти ничего про твой проект, ничего тпредложить немогу.
4. в onclick Winexec('путь до приложения');

[Norw]

про проект:
виртуальный тренажер аппаратуры связи
в его составе:
1. сам собственно тренажер
2. что то вроде теста: для него нужно будет изымать фио опрашиваемого, затем результат с фамилией отсылать в програму на машину-сервер где формируется таблица оценок...

больше особого ничего нет...

[Alexo]

Тогда можно на сервере сделать проверку имени и пароля, данныех храняться в БД или в файлах.
в клиенстком приложении первым делом запускаешь форму с полями ввода логина и пароля, жмут ОК отсылаешь на сервер если с сервера пришло ОК допускаешь дальше если нет то выходишь из программы. както так.

[Norw]

Сообщение от Alexo

4. в onclick Winexec('путь до приложения');

пишет is not valid idintifier...
если вводить через в процедуре то пишет что "[Ошибка] Unit1.pas(49): Not enough actual parameters"

[Alexo]

код приведи полностью.

[Norw]

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
winexec ('d:\1\sviaz1.exe');
end;

[Alexo]

второй параметр забыл) SW_SHOWNORMAL

[Norw]

ага , заработало спасибо...

[Norw]

Сообщение от Alexo

1. тебе нудна кнопка которая умеет менять цвет) точно не помню какая именно а дальше все просто lcbtn.color := clRed;

нашел кнопку iwbutton, но она для интернет приложений... а можно найти какую нибудь алтернативу? к примеру edit при нажатии цвет менял? такое реально?

[Alexo]

Самое очевидное это использовать Panel

[Norw]

ага пасибо...

теперь новая проблема:
дано: несколько групп кнопок
надо: при нажатии одной кнопки из управляющей группы, скажем режимы работы, вкл\выкл определенные кнопки в каждой из групп... при этом каждую кнопку в отдельности описывать через параметры нельзя...

[Alexo]

Код:

btn.enable := false

[JoinSkyS]

Сообщение от Norw

3.необходимо органзовать систему защиты: пароль, разделение прав пользователя...

а пароль допускается к измене или нет?

вобщем можно на форму кинуть: Edit1, Button1.

в событии OnButton1Click пишем:

if Edit1.Text = 'Твой пароль' then
{твоё действие что надо выполнить}

если же пароль меняется, то...

задаешь глобальную переменную, например ps, c типом string.

var
ps: string;

и далее допускаешь возможность изменить значение ps на любой другой форме, а при событии по нажатию на кнопочку, пишешь:

if Edit1.Text = ps then
{твоё действие что надо выполнить}

всё просто

[Norw]

Сообщение от Alexo

Код:

btn.enable := false

дело не собственно в блокировке кнопки а в возможности влиять на другие кнопки не прописывая каждой отдельный параметр...