Tipos de Labels (Etiquetas)
Página 1 de 1.
Tipos de Labels (Etiquetas)
Bueno ahora les traigo un formulario (Form) con etiquetas normales y con eventos.
Bastante sencillo para cuando creemos nuestras aplicaciones colocar un label con nuestro enlace que redirije a nuestra web en vez de usar un anticuado boton xD el cual al usuario no le sirve de nada xD.
Capturas de pantalla
Bastante sencillo para cuando creemos nuestras aplicaciones colocar un label con nuestro enlace que redirije a nuestra web en vez de usar un anticuado boton xD el cual al usuario no le sirve de nada xD.
- Código:
unit LabelsDemo_MainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TFormLabelsDemo = class(TForm)
Label1: TLabel;
LinkLabel1: TLinkLabel;
Label2: TLabel;
procedure btnIncGlowClick(Sender: TObject);
procedure LinkLabel1LinkClick(Sender: TObject; const Link: string;
LinkType: TSysLinkType);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormLabelsDemo: TFormLabelsDemo;
implementation
{$R *.dfm}
procedure TFormLabelsDemo.btnIncGlowClick(Sender: TObject);
begin
Label1.GlowSize := Label1.GlowSize + 1;
end;
procedure TFormLabelsDemo.LinkLabel1LinkClick(Sender: TObject;
const Link: string; LinkType: TSysLinkType);
begin
ShowMessage ('Link clicked: ' + Link);
end;
end.
Capturas de pantalla
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|