Forum > Spanish

Como crear una Unit en Lazarus

(1/1)

lrcvsx:
Hola a todos:

Estoy empezando con Lazarus y no encuentro informacion ni en la IA, que muestre como crear una Unit que genere un saludo personalizado y un programa simple con un boton y un Tedit para ver su funcionamiento.

Alguien puede describirme el proceso paso a paso?

Muchas gracias!

lainz:
Hola, no es tan complicado, te dejo un ejemplo.

1) Vas a Proyecto > Nuevo Proyecto > Application.
2) Agrega un TEdit en pantalla
3) Agrega un TButton en pantalla
4) Doble click al TButton
5) Escribe:


--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---ShowMessage(Edit1.Caption); 
6) Ejecuta y prueba el programa


--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---unit Unit1; {$mode objfpc}{$H+} interface uses  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls; type   { TForm1 }   TForm1 = class(TForm)    Button1: TButton;    Edit1: TEdit;    procedure Button1Click(Sender: TObject);  private   public   end; var  Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject);begin  ShowMessage(Edit1.Caption);end; end.     

lrcvsx:
Lo probare...

Muchas gracias Lainz.

Saludos

lrcvsx:
// Aqui esta mi primera unidad en Lazarus

// Crear Unidad Lazarus
// Programa Principal

// Insertar en el Form un TBotton y un TEdit

Unit Principal;

{$Mode Objfpc}{$H+}

Interface

Uses
Classes, Sysutils, Forms, Controls, Graphics, Dialogs, Stdctrls, Unidad;

Type

{ Tform1 }

Tform1 = Class(Tform)
Button1: Tbutton;
Edit1: Tedit;
Procedure Button1click(Sender: Tobject);
Private

Public

End;

Var
Form1: Tform1;

Implementation

{$R *.Lfm}

Var
Texto: String;

{ Tform1 }

End.
.....................................................
//Insertar esto en TBoton

Procedure Tform1.Button1click(Sender: Tobject);
Begin
Texto := 'Hola';
Mostrar (Texto);
Edit1.Text:= Texto;
End;

......................................................
// Unid / Unit

Unit Unidad;

{$Mode Objfpc}{$H+}

Interface

Uses
Classes, Sysutils;

Procedure Mostrar (Var Z:String);

Implementation

Procedure Mostrar (Var Z:String);
Begin
Z:= Z + ' Adios';
End;

End.

......................................................
//Project1.Lpr

Program Principal_2;

{$Mode Objfpc}{$H+}

Uses
{$Ifdef Unix}
Cthreads,
{$Endif}
{$Ifdef Hasamiga}
Athreads,
{$Endif}
Interfaces,
Forms, Principal, Unidad;

{$R *.Res}

Begin
Requirederivedformresource:=True;
Application.Scaled:=True;
Application.Initialize;
Application.Createform(Tform1, Form1);
Application.Run;
End.

Navigation

[0] Message Index