Ciao.
Dico una banalità.
http://wiki.freepascal.org/Dialog_Examples
program LazMessage;
uses
Dialogs;
begin
ShowMessage('This is a message from Lazarus');
end.
Parliamo di questo ShowMessage... giusto?
Stilgar
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Ciao');
end;
end.
object Form1: TForm1
Left = 383
Height = 240
Top = 201
Width = 320
Caption = 'Form1'
ClientHeight = 240
ClientWidth = 320
LCLVersion = '1.2.4.0'
object Button1: TButton
Left = 76
Height = 25
Top = 65
Width = 75
Caption = 'Button1'
OnClick = Button1Click
TabOrder = 0
end
end
Anche Lazarus :D
Stilgar