|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.01.2009, 20:30 | #1 |
Заблокирован
Регистрация: 04.12.2008
Сообщений: 8
|
Связь между формами
Кто что знает? Пишу небольшую защиту для проги вот исходник
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin If Edit1.Text='п' then begin Form2.ShowModal; close; end else; ShowMessage('Пароль не верен!'); end; end. как сделать чтобы первая форма закрывалась, а то получается пароль правильный ввел открылась вторая форма а первая не закрывается |
01.01.2009, 21:22 | #2 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Можете сделать так:
Код:
Всегда рад помочь!
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
данные между формами | TaTT DoGG | Общие вопросы .NET | 13 | 04.12.2008 17:33 |
Связь между формами | KiberJo | Общие вопросы Delphi | 20 | 22.07.2008 21:40 |
Обмен данными между формами | Maks1978 | Общие вопросы C/C++ | 3 | 22.07.2008 15:35 |
Обмен данными между формами | Demien | Общие вопросы Delphi | 14 | 23.04.2008 22:04 |
Общение между формами | kate4ka | Общие вопросы Delphi | 2 | 10.03.2008 22:49 |