|
Вопрос # 6 393/ вопрос закрыт / |
|
Приветствую, уважаемые эксперты!
У меня такая проблема:
Написал процедуру с работой в реестре.
Все правильно, ни одной ошибки.
Но прикол в том, что процедура при старте не выполняется, хотя задана в событиях.
прошу помочь, т.к. я совсем недалекий в дельфи, и еще мало чего понимаю.
Спасибо.
З.Ы. Прикрепляю код
Приложение: Переключить в обычный режим- unit mcdew;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, ComCtrls,Registry, Gauges;
-
- type
- TLauncher = class(TForm)
- Username: TEdit;
- Password: TEdit;
- UsernameLabel: TLabel;
- PasswordLabel: TLabel;
- Enter: TButton;
- RememberPassword: TCheckBox;
- UpdateMinecraft: TCheckBox;
- Errors: TMemo;
- Update: TProgressBar;
- Gauge1: TGauge;
-
- procedure EnterClick(Sender: TObject);
- private
- { Private declarations }
- public
-
- end;
-
- var
- Launcher: TLauncher;
- implementation
-
- {$R *.dfm}
- procedure TLauncher.EnterClick(Sender: TObject);
- var
- reg: TRegIniFile;
- PasswordR: string;
- UsernameR: string;
- LoginR: boolean;
- begin
- if RememberPassword.Checked = true then
- begin
- try
- reg:=TRegIniFile.Create;
- reg.RootKey:=HKEY_CURRENT_USER;
- reg.OpenKey(\'Software\', true);
- reg.OpenKey(\'McDew\', true);
- reg.OpenKey(\'Launcher\', true);
- PasswordR:=reg.ReadString(\'Auth\',\'Password\',\'\');
- UsernameR:=reg.ReadString(\'Auth\',\'Username\',\'\');
- LoginR:=reg.ReadBool(\'Auth\',\'Login\',false);
- ShowMessage(\'sdssddsdsdsd\');
- reg.Free;
- if LoginR then
- begin
- Password.Text:=PasswordR;
- Username.Text:=UsernameR;
- end;
- except
- MessageBox(handle, PChar(\'????????!\'), PChar(\'?????? ??????? ? ???????. ?????? ??
????? ?????????\'), MB_OK+MB_ICONWARNING);
- end;
-
- end;
- end;
-
- end.
Примечание #1 (20 марта 2013, 17:01): строка с шоумессадже сделана для проверки выполнения процедуры
 |
Вопрос задал: teremok (статус: Посетитель)
Вопрос отправлен: 20 марта 2013, 16:58
Состояние вопроса: закрыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 10; последнее сообщение — 21 марта 2013, 19:18; участников в обсуждении: 3.
|
Вадим К (статус: Академик), 20 марта 2013, 17:01 [#1]:
А если ее прописать в FormCreate для формы Launcher?
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
teremok (статус: Посетитель), 20 марта 2013, 17:02 [#2]:
Вадим К: конечно, прописано
Работаю над McDew
|
|
|
Вадим К (статус: Академик), 20 марта 2013, 17:23 [#3]:
а что же в приложенном коде этого нет?
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
teremok (статус: Посетитель), 20 марта 2013, 17:28 [#4]:
Вадим К, а что там должно быть?
у меня ObjectInspector->Launcher->Events->OnCreate->EnterClick
правильно?
Работаю над McDew
|
|
|
Вадим К (статус: Академик), 20 марта 2013, 18:36 [#5]:
Так можно. Но вот только дело в том, что у Вас скорее всего RememberPassword.Checked будет false.
и да, писать RememberPassword.Checked = true - это признак плохого кода.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
min@y™ (статус: Доктор наук), 21 марта 2013, 08:08 [#6]:
А форма TLauncher находится среди автосоздаваемых форм проекта?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
teremok (статус: Посетитель), 21 марта 2013, 14:42 [#7]:
Вадим К, а чего в этом плохого?
Работаю над McDew
|
|
|
teremok (статус: Посетитель), 21 марта 2013, 14:45 [#8]:
min@y™, да
Работаю над McDew
|
|
|
min@y™ (статус: Доктор наук), 21 марта 2013, 16:14 [#9]:
Поставь точку останова на строке if RememberPassword.Checked.
Если до неё выполнение не дойдёт, то значит обработчик не вызывается и смотреть надо в других местах. А если дойдёт, возможно, что RememberPassword.Checked = false.
Предположения.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Вадим К (статус: Академик), 21 марта 2013, 19:18 [#10]:
teremok:
Потому что правильно писать
if RememberPassword.Checked then
Галочка "подтверждения прочтения" - вселенское зло.
|
7 мая 2013, 11:27: Вопрос закрыт (решение принял DNK): Обсуждение затухло
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
