mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-04 05:39:34 +01:00
109 lines
3.7 KiB
ObjectPascal
109 lines
3.7 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
|
|
* *
|
|
***************************************************************************
|
|
}
|
|
Program MessagDialogs;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses Interfaces, Classes, Forms, Dialogs, Buttons;
|
|
|
|
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 Create(AOwner);
|
|
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!');
|
|
writeln('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.
|
|
{
|
|
$Log$
|
|
Revision 1.6 2002/10/29 08:22:32 lazarus
|
|
MG: added interfaces unit
|
|
|
|
Revision 1.5 2002/09/03 20:02:01 lazarus
|
|
Intermediate UI patch to show a bug.
|
|
|
|
Revision 1.4 2002/08/30 10:06:07 lazarus
|
|
Fixed alignment of multiline TLabel.
|
|
Simplified and prettified MessageBoxen.
|
|
|
|
Revision 1.3 2002/05/10 06:57:50 lazarus
|
|
MG: updated licenses
|
|
|
|
Revision 1.2 2001/07/31 18:40:24 lazarus
|
|
MG: added unit info, arrow xpms, and many changes from jens arm
|
|
|
|
Revision 1.1 2001/03/03 00:51:54 lazarus
|
|
+ new sample to show Message dialogs
|
|
stoppok
|
|
|
|
}
|