Lazarus

Other Languages => Spanish => Topic started by: lrcvsx on December 19, 2024, 06:42:29 pm

Title: Como crear una Unit en Lazarus
Post by: lrcvsx on December 19, 2024, 06:42:29 pm

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!

Title: Re: Como crear una Unit en Lazarus
Post by: lainz on December 19, 2024, 08:41:54 pm

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  [Select][+][-]

1. ShowMessage(Edit1.Caption);
2.  

6) Ejecuta y prueba el programa

Code: Pascal  [Select][+][-]

1. unit Unit1;
2.  
3. {$mode objfpc}{$H+}
4.  
5. interface
6.  
7. uses
8.   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
9.  
10. type
11.  
12.   { TForm1 }
13.  
14.   TForm1 = class(TForm)
15.     Button1: TButton;
16.     Edit1: TEdit;
17.     procedure Button1Click(Sender: TObject);
18.   private
19.  
20.   public
21.  
22.   end;
23.  
24. var
25.   Form1: TForm1;
26.  
27. implementation
28.  
29. {$R *.lfm}
30.  
31. { TForm1 }
32.  
33. procedure TForm1.Button1Click(Sender: TObject);
34. begin
35.   ShowMessage(Edit1.Caption);
36. end;
37.  
38. end.
39.      

Title: Re: Como crear una Unit en Lazarus
Post by: lrcvsx on December 19, 2024, 09:13:41 pm

Lo probare...

Muchas gracias Lainz.

Saludos

Title: Re: Como crear una Unit en Lazarus
Post by: lrcvsx on December 21, 2024, 05:30:45 pm

// 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.