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
FBotonPulsado := false;
end;
procedure TfrmPrincipal.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
FBotonPulsado := false;
end;
procedure TfrmPrincipal.Button1MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
FBotonPulsado := false;
end;
procedure TfrmPrincipal.Button1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
FBotonPulsado := not FBotonPulsado;
while FBotonPulsado do
begin
mPruebas.Lines.Append('$');
Application.ProcessMessages;
end;
end;
procedure TfrmPrincipal.btnCerrarClick(Sender: TObject);
begin
Close;
end;
end.