VCL - controles Standard: TPopupMenu

El control TPopupMenu nos permite asociar a cualquier otro control visual un menú que se despliega cuando se presiona el botón derecho del mouse en el control.

Todos los controles visuales que tienen una propiedad PopupMenu se les puede enlazar un menú de la clase TPopupMenu.

Problema 1:

Crear un objeto de la clase TPopupMenu con dos opciones 'Convertir a mayúsculas' y 'Convertir a minúsculas'
En el formulario disponer un objeto de la clase TEdit y asociar a este objeto el PopupMenu creado previamente.

La asociación del Edit1 con el PopupMenu1 se hace desde el objeto TEdit:

Proyecto166

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    PopupMenu1: TPopupMenu;
    Convertiramaysculas1: TMenuItem;
    Convertiraminsculas1: TMenuItem;
    procedure Convertiramaysculas1Click(Sender: TObject);
    procedure Convertiraminsculas1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Convertiramaysculas1Click(Sender: TObject);
begin
  Edit1.Text := UpperCase(Edit1.Text);
end;

procedure TForm1.Convertiraminsculas1Click(Sender: TObject);
begin
  Edit1.Text := LowerCase(Edit1.Text);
end;

end.

Cuando ejecutamos el programa si presionamos el botón derecho del mouse dentro del Edit1 se muestra el PopupMenu:

Retornar

52 - VCL - controles Standard: TPopupMenu

Problema 1:

Proyecto166