TNotifyEvent y TMouseEvent
 

Hola a todos una vez más necesito de su ayuda para poder asignar un procedimiento a un evento por ej:

Código Delphi [-]
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure ImageEvent(Sender: TObject );
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    bImage : array of TImage;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.ImageEvent(Sender: TObject);
begin
  ShowMessage('asd');
end;

procedure Button1Click(Sender: TObject);
  h   : Integer;
begin
  setLength(bImage, High(bImage)+2);

  h := High(bImage);
  bImage[h] := TImage.Create(nil);

  with bImage[h] do begin
    Width  := 75;
    Height := 45;
    Name:= Format('B%d', [h]) ;
    OnClick := ImageEvent;
    OnMouseDown:= ImageEvent;//Aqui es el problema que tengo
    Parent  := Self;
    Picture.Bitmap.LoadFromFile('c:/clubdelphi.bmp');
  end;
end;

Como verán en el evento onClick puedo asignarle un procedimiento ahora para el evento OnMouseDown no y me pregunto si hay alguna forma. O de ultima capturar el evento cuando se clickiea en un objeto del tipo TImage. Saludos y gracias

Para asignar un procedimiento al evento mousedown debe ser del mismo tipo en esta caso con los mismos parametros requeridos para es evento

procedure TForm1.MyMousedown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
//Codigo
end;



Espero te sea util. Saludos

Recuerda poner los tags al código fuente, ejemplo:



Gracias :)

Daaaa juro que era lo que había hecho ahora lo volví a probar y me dio. Estoy buscando de donde me salio un error "delphi Incompatible types: 'TMouseButton' and 'TShiftState'" porque lo probé con un TButton. Creo que fue porque mi novia no me deja concentrar jejeje.
Gracias Saludos

Es verdad con el apuro lo olvide. Recibo el jalon de orejas justamente..

Sere mas cuidadoso