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
Última edición por Caminante fecha: 18-11-2013 a las 22:09:27.
|