Вопрос по процедуре

[VenMaster]

Можно ли как нибудь запустить процедуро по условию. То есть если условие выполняется процедура работает а если нет, значит нет))))

[Terran]

Если я правильно понял, то процедуру запустить по условию можно, вот пример:

uses
mmsystem,..

procedure OpenCD;
Begin
MciSendString('Set CDAudio Door Open',Nil, 0, 0);
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
if RadioButton1.Checked=true then
begin
OpenCD;
end
else
begin
showmessage('123');
end;
end;

[VenMaster]

У меня есть процедура на главной форме
procedure TFMain.ShellTreeView1Change(Sender: TObject; Node:TTreeNode);
и есть проверка на админа на форме авторизации.
Как мне сделать что если админ эту процедуру разрешить???

[igroman]

На форму авторизации кидаешь два Edit для введения имени и пароля.
if (Form2.Edit1.Text = 'Admin') and (Form2.Edit2.Text = 'пароль') then
ShellTreeView1Change;
end;

Или помещай логин пароль в глобальные переменные

[VenMaster]

ShellTreeView1Change; я так пробовал он ругается, там типа еще ченить в скобках надо ввести

[Terran]

В процедуре можно сделать проверку на админа и если админ то разрешить. К примеру:

procedure TFMain.ShellTreeView1Change(Sender: TObject; Node:TTreeNode);
Begin
If Если админ Then
Begin
...
Код который в процедуре.
...
End;