Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-07-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.119
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
TRichEdit "con doble clic"

Código Delphi [-]
unit RichConCLaK;

interface

uses
  Windows, Classes, messages,Controls, StdCtrls, ComCtrls;

type
  TrichEdit1 = class(TrichEdit)
  private
    FOnDblClick: TNotifyEvent;
    Procedure Cluk(var message:TWMMouse);message WM_LBUTTONDBLCLK;
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('ArtSoft', [TrichEdit1]);
end;

Procedure TrichEdit1.Cluk(var message:TWMMouse);
begin
 if Assigned(FOnDblClick) then FOnDblClick(Self);
end;

end.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 01:20:28.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi