TNotifyEvent y TMouseEvent

[Comandant]

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

[Caminante]

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

[Casimiro Notevi]

Empezado por Caminante

.

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



Gracias

[Comandant]

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

[Caminante]

Empezado por Casimiro Notevi

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



Gracias

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

Sere mas cuidadoso