Incorrect password, error in Delphi

Question

Please tell me how to make a window with a header pop up when checking the password on the SpeedButton button, for example, “System error”, and in the window itself, for example, “Wrong password”. I have so

procedure TForm1.SpeedButton1Click(Sender: TObject); begin if edit1.Text='123' then PostMessage(FindWindow(Nil, 'test.exe'), WM_QUIT, 0, 0) else ShowMessage('Неверный пароль'); end; end.

How to make the header of the "Error" window instead of the file name?

First, repeat hashcode.ru/questions/105517 Second, enough to produce virtuals, better read a book

Answer 1 · 2012-05-01T12:01:07

Winapi:

 SetWindowText( handle, text)

Example:

 SetWindowText( FindWindow(nil,'Form1'), 'NewCaption!')

Better yet, use MsgDialog ::

 MessageDlg('Ошибка!',mterror,[mbYes,mbCancel],0);

PS

This is not called the "header", but the window title.

UPD

Then MessageBox will help you.

 procedure TForm1.SpeedButton1Click(Sender: TObject); begin if edit1.Text='123' then PostMessage(application.handle, WM_QUIT, 0, 0) else MessageBox(handle,'Ошибка!','Системная ошибка!',1); end; end

You enter a password, if the password is correct, the form is closed, if it is not valid, then the modal window will appear in it, written "Wrong password".
And the title of this modal window, instead of the file name, should be written for example "System error".

Incorrect password, error in Delphi

1 answer 1

More articles: