Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Что делаю не так? [D7, XP]

kop © (2005-12-07 18:11:00)
form1.MainMenu1.Items[N4].Enabled:=true;

msguns (2005-12-08 09:28:00) [1]
Всем объектам, к которым может быть ссылка в коде (в любом юните проекта), следует давать осмысленныеимена,- тогда и не будет подобных недоразумений.

HF-Trade (2005-12-08 05:55:00) [2]

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

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

app (2005-12-07 22:41:00) [3]
Ой так вас двое таких
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1133983045&n=18

app (2005-12-07 22:40:00) [4]
Скажи, ты все свои вопросы будешь называть " Что делаю не так?"

Плохиш (2005-12-07 21:12:00) [5]

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

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

Alexander Panov (2005-12-07 19:56:00) [6]
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 (2005-12-07 19:45:00) [7]
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;

Alexander Panov (2005-12-07 19:37:00) [8]
coral (07.12.05 19:18) [12]

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

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

coral (2005-12-07 19:18:00) [9]
with form1.MainMenu1 do
begin
N4.enabled:=true;
end;

Alexander Panov (2005-12-07 19:10:00) [10]
coral (07.12.05 19:06) [10]

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

coral (2005-12-07 19:06:00) [11]

> Virgo_Style ©

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

Virgo_Style (2005-12-07 19:01:00) [12]
coral (07.12.05 18:58) [8]
тем более ответ элементарен

и дан в [4]

coral (2005-12-07 18:58:00) [13]
Если ты сидишь тут чтоб помогать, разве так сложно ответить по-нормальному?? тем более ответ элементарен, просто я не работал с этим компонентом

Игорь Шевченко (2005-12-07 18:52:00) [14]
http://www.ln.ua/~openxs/articles/smart-questions-ru.html

Игорь Шевченко (2005-12-07 18:47:00) [15]

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

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

coral (2005-12-07 18:43:00) [16]

> N4.Enabled := true

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

Игорь Шевченко (2005-12-07 18:38:00) [17]
N4.Enabled := true

coral (2005-12-07 18:36:00) [18]
Люди подскажите код, выставляющий элемент N4 MainMenu в enabled:=true, если изначально он false

Leonid Troyanovsky (2005-12-07 18:28:00) [19]

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

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

--
Regards, LVT.

kop (2005-12-07 18:21:00) [20]
возникает ошибка: [Error] MyUnit.pas(99): Undeclared identifier: 'N4'. Не пойму в чем дело...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »