Текущий архив: 2004.04.25;
Скачать: CL | DM;
Вниз
Как мне закрить предидущую форму??? Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.043 c
