1
0
lazarus-tutorials/labels/umain.pas

33 lines
307 B
ObjectPascal

unit umain;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
end.