Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Вниз

Как мне закрить предидущую форму???   Найти похожие ветки 

← →
Berezne   (2004-04-05 18:04) [0]

Извините за ламерский вопрос но все же: из стандартних взял форму для ввода пароля. После ввода пароля, если пароль совпадает, рисуется главная форма в которой отображаются все необходимие мне данние.
Вопрос: как мне, после проверки пароля, закрить форму в которой вводится пароль и  показать форму с данними бази даних?

Спасиба всем за ответи.

---

← →
Digitman ©   (2004-04-05 18:07) [1]

это что, операция "Ы" ?

или таки код приведешь свой ?

---

← →
Ega23 ©   (2004-04-05 18:08) [2]

Кнопка с буквой "Ы" находится слева от кнопки "В", справа от "Ф", под кнопкой "Ц" и над кнопкой "Ч".
Если что.

---

← →
Ega23 ©   (2004-04-05 18:08) [3]

Digitman ©   (05.04.04 18:07) [1]

мысли сходятся...

---

← →
Berezne   (2004-04-05 18:14) [4]

Извините если что не так, но все дело в том что я с Украини и у меня стоит только английский и украинский язик. Вот потому то и нету етой самой букви. А если поставить русский, то он мне мешает в работе. Привичка в переключении расскладки клавиатури.

---

← →
Ega23 ©   (2004-04-05 18:24) [5]

Berezne   (05.04.04 18:14) [4]

Ну если так, то сорри за "наезд".

А по вопросу:
1. Каким образом и когда создаётся форма диалога?
2. Вот, собственно, и все вопросы. :о)

---

← →
Vemer ©   (2004-04-05 18:38) [6]

Вариант:
Application.ShowMainForm := False; // в DPR.

.Visible //паролеспрашивателя True, в конструкторе.. :).

Application.MainForm.Visible := True; - после удачного ввода пароля.

---

← →
Ega23 ©   (2004-04-05 18:40) [7]

Да лучше до Application.Run это делать. Без всяких главных форм.

---

← →
Digitman ©   (2004-04-05 18:42) [8]

> Berezne


комментарий про украинскую раскладку - кому он тут нужен ?

и так понятно, что лошадь, но только - с рогами)

код нужен твой для публичного анализа ! где он ?

---

← →
sir John ©   (2004-04-05 20:54) [9]

В качестве примера:
Unit1

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Buttons, constants;

type
 TForm1 = class(TForm)
   procedure FormClick(Sender: TObject);
 private
   Procedure ShowPasswdModal;
   Procedure HookHide (var msg: TMessage); message SX_HIDE;
   Procedure HookShow (var msg: TMessage); message SX_SHOW;
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

{ TForm1 }

procedure TForm1.ShowPasswdModal;
begin
Form2 := TForm2.Create(Self);
 try
  Form2.ShowModal;
 finally
  FreeAndNil(Form2);
 end;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
 ShowPasswdModal;
end;

procedure TForm1.HookHide(var msg: TMessage);
begin
 Form1.Hide;
end;

procedure TForm1.HookShow(var msg: TMessage);
begin
Form1.Show;
end;

end.


unit2

unit Unit2;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;

type
 TForm2 = class(TForm)
   procedure FormCreate(Sender: TObject);
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form2: TForm2;

implementation

uses constants;

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
SendMessage(FindWindow("TForm1","Form1"),SX_HIDE,0, 0);
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 SendMessage(FindWindow("TForm1","Form1"),SX_SHOW,0,0);
end;

end.


Unit 3. Constatns

unit constants;

interface
uses Messages;

  const
   SX_HIDE = WM_USER+100;
   SX_SHOW = WM_USER + 101;

implementation

end.


Принцип такой. Из настроек проекта удаляем Form2.
При клике по главной форме мы динамически создаем модальную форму и при этом прячем главную. При закрытии модальной формы мы уничтожаем объект и показываем главную форму...

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.036 c