mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-09 03:48:08 +02:00
86 lines
3.1 KiB
ObjectPascal
86 lines
3.1 KiB
ObjectPascal
{ ***************************************************************************
|
|
MessageDialogs - example
|
|
------------------------
|
|
|
|
Just a simple example to show & verify functionality of the lazarus
|
|
functions to deal with message dialogs.
|
|
|
|
by Stefan Hille <stoppok@osibisa.ms.sub.org>
|
|
|
|
****************************************************************************
|
|
|
|
***************************************************************************
|
|
* *
|
|
* This source is free software; you can redistribute it and/or modify *
|
|
* it under the terms of the GNU General Public License as published by *
|
|
* the Free Software Foundation; either version 2 of the License, or *
|
|
* (at your option) any later version. *
|
|
* *
|
|
* This code is distributed in the hope that it will be useful, but *
|
|
* WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
|
|
* General Public License for more details. *
|
|
* *
|
|
* A copy of the GNU General Public License is available on the World *
|
|
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
|
|
* obtain it by writing to the Free Software Foundation, *
|
|
* Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1335, USA. *
|
|
* *
|
|
***************************************************************************
|
|
}
|
|
Program MessagDialogs;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses Interfaces, Classes, Forms, Dialogs, Buttons, StdCtrls, LazLogger;
|
|
|
|
type
|
|
TMainForm = class(TForm)
|
|
private
|
|
protected
|
|
public
|
|
button1 : TButton;
|
|
constructor Create(AOwner: TComponent); override;
|
|
procedure button1Click(Sender : TObject);
|
|
end;
|
|
|
|
var
|
|
MainForm : TMainForm;
|
|
|
|
constructor TMainForm.Create(AOwner: TComponent);
|
|
begin
|
|
inherited CreateNew(AOwner, 1);
|
|
Caption := 'Message Show';
|
|
Width := 200;
|
|
Height := 75;
|
|
Left := 200;
|
|
Top := 200;
|
|
|
|
button1 := TButton.Create(Self);
|
|
button1.OnClick := @button1click;
|
|
button1.Parent := Self;
|
|
button1.left := (width - 85) div 2 ;
|
|
button1.top := (height - 32) div 2;
|
|
button1.width := 85;
|
|
button1.height := 32;
|
|
button1.caption := 'Start Show';
|
|
button1.Show;
|
|
end;
|
|
|
|
procedure TMainForm.Button1Click(Sender : TObject);
|
|
begin
|
|
ShowMessage ('First simple test!');
|
|
DebugLn('Go to second dialog');
|
|
MessageDlg ('Caption', 'Two buttons now ...', mtError, [mbOK,mbCancel], 0);
|
|
MessageDlg ('Warning, not fully implemented', mtWarning, [mbYes, mbNo, mbOK,mbCancel], 0);
|
|
ShowMessageFmt ('The show will end now'+LineEnding+'%s'+LineEnding+'Good bye!!!', [MainForm.Caption]);
|
|
close;
|
|
end;
|
|
|
|
|
|
begin
|
|
Application.Initialize;
|
|
Application.CreateForm(TMainForm, MainForm);
|
|
Application.Run;
|
|
end.
|