repeticion de código pulsando un TButton.

[dec]

Hola,

Bueno. Que yo sepa no existe el evento "OnBetwenUserDontUpKey"... sin embargo, digo que yo que todo puede hacerse... ¿no? Lo que no sé es si quedaría algo elegante, curioso, limpio, usable y efectivo al mismo tiempo.

Quiero decir, que, a bote pronto, se me ocurre algo como esto...

Código Delphi [-]
unit UfrmPrincipal;

interface

uses
  Forms, StdCtrls, Classes, Controls;

type
  TfrmPrincipal = class(TForm)
    mPruebas: TMemo;
    Button1: TButton;
    btnCerrar: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnCerrarClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  private
    FBotonPulsado: boolean;
  end;

var
  frmPrincipal: TfrmPrincipal;

implementation

{$R *.dfm}

procedure TfrmPrincipal.FormCreate(Sender: TObject);
begin
  // Inicialmente...
  FBotonPulsado := false;
end;

procedure TfrmPrincipal.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  // Al cerrarse el formulario...
  FBotonPulsado := false;
end;

procedure TfrmPrincipal.Button1MouseUp(Sender: TObject;
 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  // Si se "deja de pulsar" en el botón...
  FBotonPulsado := false;
end;

procedure TfrmPrincipal.Button1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  FBotonPulsado := not FBotonPulsado;
  // Mientras el botón esté "pulsado"...
  while FBotonPulsado do
  begin
    mPruebas.Lines.Append('$');
    Application.ProcessMessages;
  end;
end;

procedure TfrmPrincipal.btnCerrarClick(Sender: TObject);
begin
  Close;
end;

end.