Что делаю не так?

← →
kop (2005-12-07 18:11) [0]

form1.MainMenu1.Items[N4].Enabled:=true;

← →
kop (2005-12-07 18:21) [1]

возникает ошибка: [Error] MyUnit.pas(99): Undeclared identifier: "N4". Не пойму в чем дело...

← →
Leonid Troyanovsky © (2005-12-07 18:28) [2]

> kop (07.12.05 18:21) [1]
> возникает ошибка: [Error] MyUnit.pas(99): Undeclared identifier:
> "N4".

От тебя ждут объявления переменной N4: Longint, а затем, видимо,
будут ждать назначения ему валидного значения.

--
Regards, LVT.

← →
coral (2005-12-07 18:36) [3]

Люди подскажите код, выставляющий элемент N4 MainMenu в enabled:=true, если изначально он false

← →
Игорь Шевченко © (2005-12-07 18:38) [4]

N4.Enabled := true

← →
coral (2005-12-07 18:43) [5]

> N4.Enabled := true

Ну а где писать-то это? вот так чтоль: MainMenu1.N4.Enabled := true???? так ведь не прокатит

← →
Игорь Шевченко © (2005-12-07 18:47) [6]

> Ну а где писать-то это?

На заборе белой краской.

← →
Игорь Шевченко © (2005-12-07 18:52) [7]

http://www.ln.ua/~openxs/articles/smart-questions-ru.html

← →
coral (2005-12-07 18:58) [8]

Если ты сидишь тут чтоб помогать, разве так сложно ответить по-нормальному?? тем более ответ элементарен, просто я не работал с этим компонентом

← →
Virgo_Style © (2005-12-07 19:01) [9]

coral (07.12.05 18:58) [8]
тем более ответ элементарен

и дан в [4]

← →
coral (2005-12-07 19:06) [10]

> Virgo_Style ©

Я на это получаю ошибку вида: [Error] MyUnit.pas(148): Record, object or class type required

← →
Alexander Panov © (2005-12-07 19:10) [11]

coral (07.12.05 19:06) [10]

А где ж ты эту строку вводишь? В каком месте программы?

← →
coral (2005-12-07 19:18) [12]

with form1.MainMenu1 do
begin
N4.enabled:=true;
end;

← →
Alexander Panov © (2005-12-07 19:37) [13]

coral (07.12.05 19:18) [12]

with form1.MainMenu1 do
begin
N4.enabled:=true;
end;

Этот код у тебя в какой-то функции находится?
Приведи больше кода - не жмись уже.

← →
coral (2005-12-07 19:45) [14]

function TMyClass.Registration: string;
var result1,result2: string;
log,pas: boolean;
N4: Longint;
begin
result1:=form1.Edit1.Text;
result2:=form1.Edit2.Text;
log:=form1.adotable1.Locate("LOGIN", result1, []);
pas:=form1.adotable1.locate("PASSWORD", result2, []);
if (log = true) and (pas = true) then
begin
form1.Button2.enabled:=true;
form1.Button3.Enabled:=true;

N4.enabled:=true;

//form1.MainMenu1.Items[N4].Enabled:=true;
end else
begin
showmessage("");
form1.Edit1.Clear;
form1.Edit2.Clear;
end;
end;

coral (07.12.05 19:45) [14]

Лучше определи в секции public или private функцию, которая будет работать с объектами на форме. А из своего класса вызывай ее:

TForm1=class ... private functinon Reg: String; ... end; implementation functinon TForm1.Reg: String; var result1,result2: string; log,pas: boolean; N4: Longint; begin Result := ""; result1:=Edit1.Text; result2:=Edit2.Text; Button2.enabled:= (adotable1.Locate("LOGIN", result1, [])) and (adotable1.locate("PASSWORD", result2, [])); Button3.Enabled := Button2.enabled; N4.enabled := Button2.enabled; if Button2.enabled then begin Edit1.Clear; Edit2.Clear; result := Result1+"/"+Result2; end; end; function TMyClass.Registration: string; begin Result := Form1.Reg; if Result ="" then showmessage(""); end;

Примерно так.

> coral (07.12.05 18:58) [8]
> Если ты сидишь тут чтоб помогать,

Тут никто чудакам ничего не должен, а тебе пора переквалифицироваться в дворники.

Скажи, ты все свои вопросы будешь называть "Что делаю не так?"

Ой так вас двое таких
http://delphimaster.net/view/2-1133983045/

> kop (07.12.05 18:11)
> form1.MainMenu1.Items[N4].Enabled:=true;

Пиши так -
Form1.MainMenu1.Items[4].Enabled:=true;//Итем указывай по счету, а не по имени...

Всем объектам, к которым может быть ссылка в коде (в любом юните проекта), следует давать осмысленные имена,- тогда и не будет подобных недоразумений.

Что делаю не так? Найти похожие ветки